


La revue francophone indépendante pour les utilisateurs des 


Apple ][+, //e, /le+, J/c, IIGS* et Macintosh” 






PRODOS CUCTF OMPTI OT UE F PRIT, 
2791L CUNFILAIE | 


SUPERMACROMORNS MERL! BASIC. SYSTEM 





4-6068 





| 0204 


ISSN Ô 











Compiler un programme Basic 
avec le BON OUTIL, c'est : 


»+ Transformer le Basic en langage machine, 





sous ProDOS 

»# Accélérer de 2 à 20 fois l'exécution des 
programmes, 

»* Générer un code plus compact que le Basic 
original, 


» Compiler instantanément, lors du RUN, 
ou sur disque, 

> Utiliser les cartes d'extension-mémoire 

» Gagner en confidentialité : le code est 
hermétique, 

» Gagnerenefficacité... 





Compilateur, documentations française et américaine 
750,00 F TTC, (abonnés 675,00 F), frais de port 20,00 F: 
Pom's -— Éditions MEV - 12, rue d'Anjou — 78000 Versailles 
(commande par Minitel : (1) 39 53 04 40) 

Banc d'essai, Pom’ 35 





























Multi-tâäches : 
Share 


//e 
Le 


un Classic Desk Accessory : 
Alarme 
Sylvie Gallet 


Alaïn Raynaud 





Page 8 


Courrier Dimitri Geystor 


automatique 


ce 7 


P r oD OS ‘ Pierre Demblon 


Petit guide de 


l'utilisateur 
Page 25 


un New Desk Accessory : 


Converter 
Page 31 
ES 


Vincent & Bernard 
Toméno 


G 
G 


Compilateur 
B eagle 


Page 35 


Big U de 
Beagle 


Page 37 


un accessoire de bureau 


Corner light 


Alain Bohec 


Page 39 


un accessoire de bureau 
Mini-montre 


Alain Bohec 





Page 46 


| Double-Graphics 


Pascal Cantot 


Apple /| for ever : 


Jean-Yves Bourdin 


SL, 


Courrier des 
Lecteurs 


Petites 
annonces 


Mots croisés 


Joëlle Piard Page 74 


Les annonceurs ; Apple : pages 4 et 5 ; LOGMA S.A. : page 11 : Softworld : page 13. 


Éditions MEV - 12, rue d'Anjou - 78000 Versailles. TéL : (1) 39 51 24 43. Directeur de la publication : Hervé Thiriez 





Imprimé en France. Ne d'impression 785399 — Dépôt légal : mars 1988. 





Pom's n° 35 








EE mn 


Il a fallu d’abord réinventer 
des outils très simples. 


Couper/coller, pour vous c’est naturel. 

Pour un ordinateur c’est inhumain. 

A tel point que certains ordinateurs préfèrent vous 
demander de changer vos habitudes. = . 

Pour eux, c'est sans doute un point de détail mais pas ET 
pour Apple. 

Plus votre façon de travailler est naturelle et intuitive, 
moins votre raisonnement sera encrassé de détails 
encombrants. 






Le chifire d'attaires du dernier trinéetre # 
dépassent nos espérantes Les cho strati 
Lennée ont porté teurs fruits Le graphe sut 
wentes entre 1903 et 1956 


Ce 





Macintosh était déjà l'outil idéal pour manipuler les 
idées complexes avec la même facilité que s'il s'agissait 
d'objets. 

Macintosh II va encore plus loin, en y ajoutant ses 
capacités techniques incomparables : sa mémoire 
colossale, sa rapidité de calcul impressionnante, 
ses possibilités d'ouverture vers n'importe quel 
système et ses 16 millions de couleurs. 


pour que Vous puissiez 
aujourd'hui manier des idées 
complexes. 


Vous aviez déjà été ébloui par More (un logiciel 
d'organisation d'idées) sur Macintosh : regardez-le 
encore, VOUS n'avez rien vu. ’ 


| 
| 
| 
| En couleur et à une vitesse incroyable, 
la hiérarchisation des idées et l'organisation un 
| 






des concepts deviennent si claires que 
Macintosh II semble sortir tout droit d’un 
album de Mandrake le Magicien. Apple 


Macintosh Il 
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Voici donc le résultat de 
notre dernier sondage. Plus 
encore que les chiffres 
bruts qui se prêtent bien à 
la statistique, les commen- 
taires qui accompagnent les 
bulletins (parfois plusieurs 
pages) nous sont un élément 
de réflexion et d'orientation 
indispensable. 


Quel 
équipement ! 


Il est bien clair que pour le lecteur 
de Pom's, acheter un Apple IIGS 
ou un Macintosh ne signifie pas 
oublier sa première machine. 
Pour 100 lecteurs, on compte 180 
ordinateurs ! 

Un lecteur sur six possède deux 
Apple ou plus. Dans la plupart des 
cas, on retrouve chez ceux-ci : 

- un//e (ou c)et un LIGS, 

- un Apple // et un Mac. 
Autrement dit, on n'a pas 
revendu l'ancêtre lors de l'achat 
de la machine plus puissante. 
Pour l'équipe de Pom'’s, voilà une 
explication du besoin de 
communication inter-machines 
fréquemment évoqué. 


/le, lle, IIGs : 
Match nul 


Voici la répartition des 
matériels : 


X+ 5,4% 
Île 33,6% 
lle 32,9% 
IIGS 34,2% 


Mac 512 4,0% 
Mac Plus 14,8% 
MacSE 5,4% 


Pour 100 lecteurs, il y a donc : 


- 106 Apple// et 
- 24 Macintosh. 


Notons qu'il y a aujourd'hui une 
répartition équitable des //e, //c, 
IIGS. 


Vous êtes 87,3% à avoir une 
imprimante, essentiellement des 
ImageWriter/DMP. 


Sur 100 imprimantes, il y a: 
- 80,8% d'ImageWriter/DMP et 
- 19,2% autres. 


Communication 


Pour 100 lecteurs, nous avons 
trouvé : 

- 49,0 Minitels et 

- 23,5 modems 


Même si quelques lecteurs ont 
Minitel ET modem, ïil faut 
compter que la majorité 
d'entre-vous (70%) a ouvert son 
ordinateur au monde extérieur. 
Grâce à Pom's ? 


Pom’s et vous 


Les rapports entre vous et Pom's 
d'une part, vous et votre 
ordinateur de l'autre, sont 
particulièrement stables. 
Beaucoup de Basic, beaucoup 
d'assembleur, de nombreuses 
heures devant la machine. 

Vous avez lu quasiment tous les 
Pom’s et bien que notant votre 
revue sans complaisance, le 
niveau général atteint la plupart 
du temps 5 sur 5. Merci pour les 
auteurs. 


Vous réclamez 


e Plus encore d'“Apple // for 
ever”, rubrique particulièrement 
appréciée, 

e Des routines ‘Son’ pour le GS, 


+ Des explications claires (nous 
nous y employons, croyez-le), 
° Plus d'utilitaires de commu- 





nication (avec les huit derniers 
numéros, nous avons déjà un 
ensemble cohérent, mais les 
idées ne manquent pas), 


° Des accessoires de bureaux GS 
(deux dans ce numéro), 


° Des programmes d'EAO. 


Vous aimez 


e «Ce qui concerne ma ma- 
chine/ma configuration» (!), 


+ “Apple // for ever” bien sûr, 


° Les utilitaires pour le Basic et 
les commentaires des sources, 

e Les montages électroniques 
simples, 

e Les articles pédagogiques. 


Vous détestez 


° Parution bimestrielle seule- 
ment, 


+ «Les pages Apple Il/Les pages 
Macintosh» (rayer la mention 
inutile !), 
° Les incompatibilités entre 
appareils (du type //c avec souris 
en port 7). 


Les heureux 


Voici donc la liste de 10 lecteurs 
qui bénéficieront d'un abonne- 
ment : 


G. Covarelli de Nice 

F. Muller de Sélestat 

M. Rzewuski de Cagnes sur Mer 
M. Gayrard d'Antony 

À. Druyer de Chalons sur Marne 
G. Rost de Cergy 

M. Schwartz de Lunéville 

R. Largeron de Seyssinet 

M. Marquis de Moelan 

P. Astier de Paris 


G 
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Éditorial 


Une revue, un service et... 


Comme nous le laissions entendre dans notre précédent 
numéro, il nous fallait envisager des solutions pour renforcer 
et affiner la qualité du service Pom's. En effet, bien plus qu'une 
revue consacrée à la programmation, Pom's devient un 
véritable service ; même si nous tenons à rester dans le cadre 
des informations publiées dans la revue, comment ne pas 
répendre à une question concernant AppleWorks par 
exemple ? 

Et comment satisfaire le souhait légitime d'un abonné de voir 
la confiance qu'il nous témoigne — souvent depuis le numéro 
un — prise en compte pour une assistance plus prompte, plus 
efficace ? 


.… la carte ‘joker’ 


Sivous êtes abonné à Pom's, vous recevrez prochainement une 
carte — format carte de crédit, pratique et toujours sous la 
main — précisant un code personnel d'accès privilégié à notre 
“hot line’ ; téléphonique au (1) 39 51 24 43 ou télématique au 
(1) 39 53 04 40. Chaque carte est valide jusqu’à parution d'un 
numéro non compris dans l'abonnement. 


Tout sera mis en œuvre pour apporter la solution au 
problème... quandbien même celui-ci sortirait quelque peu de 
la stricte application de nos programmes. 


Autre ‘plus’ de notre carte — baptisée ‘Joker’ du fait de son 
aspect essentiellement dépannage —, des tarifs préférentiels 
précisés au fil des numéros (dès aujourd'hui 10 % sur 
l'excellent compilateur de Beagle, Pom_Link 3.1, SuperMacro- 
Works, Big U ou encore le détecteur de sonnerie). 


Le serveur publié dans le numéro 34 a fait bien des petits : vous 
êtes déjà nombreux à nous avoir présenté vos réalisations, 
félicitations. Continuez, nous retiendrons certaines d'entre- 
elles. 

Avez-vous croqué le module commande sur notre serveur ? Il 
s'écoule parfois moins d’une heure entre votre ordre et 
l'expédition de votre disquette... Vive le Minitel ! 


HervéThiriez 
En couverture, le ‘finder’ del'ApplelIGS de Dan Oliver & CherylEw) livré avec 


le nouveau Système. Sur le bureau électronique, l'accessoire de bureau de 
Vincent & Bernard Toméno : Converter. 
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usqu'à présent, votre 
Apple // ne savait 
exécuter qu'un seul 
programme à la fois. 
Or, il serait souvent 
bien agréable de 
pouvoir disposer d'un 
système, même rudi- 
mentaire, qui permette 
de faire tourner une 
‘tâche de fond’ pendant que le 
travail principal s'exécute. 
L'accessoire de bureau sur le 
Macintosh est déjà un travail en 
multi-tâches, l'accessoire menant 
sa vie indépendamment des 
applications qui passent. 





Cette lacune de l'Apple // va être 
comblée avec la routine SHARE qui 
s'installe sous ProDOS comme une 
commande externe. Une carte souris — 
déjà intégrée sur les //c — est nécessaire 
afin de générer les interruptions indis- 
pensables (désolé, mais la routine 
proposée ici ne fonctionne pas sur le 
IIGS). 


Cohabitez ! 


Tel est le mot d'ordre à donner aux 
différents programmes qui désirent 
s'exécuter simultanément en mémoire. 
A n'est en effet pas question de pouvoir 
gérer les éventuels conflits de partage 
des zones mémoire ou des périphériques 
d'entrée-sortie. 


Utilisation 


Le programme se lance par : 

— SHARE ou 

BRUN SHARE 

Trois nouvelles commandes ProDOS 
sont alors disponibles : 





Alain Raynaud 


SHARE, Axxxx, Lyy lance 
l'exécution en mode partagé du 
programme situé à l'adresse xxxx 
{indiquée en décimal ou en 
hexadécimal), en lui accordant yy% du 
temps machine disponible : yy doit être 
choisi parmi les valeurs 25, 33, 50, 66 
ou 75. Simultanément SHARE 
continue l'exécution du programme 
courant (en mode direct, il s'agit des 
interpréteurs ProDOS/Applesoft). 


NOSHARE arrête l'exécution du 
programme lancé précédemment, et le 
mode multü-tâches. Cette conunande 
doit être impérativement lancée avant de 
soumettre une nouvelle commande 
SHARE pour faire exécuter un autre 
programme. 


DOSHARE relance l'exécution en 
mode partagé du programme arrêté par 
NOSHARE, à partir de l'instruction qui 
suit la dernière exécutée. 


Exemple 


Assemblez 
TEST:S;: 
DEBUT LDX £$80 
LOOP STX $C030 

DEX 

BPL LOOP 

BMI DEBUT 
Ce programme boucle en émettant un 
bip continu sur le haut-parleur... pas 
passionnant n'est-ce-pas ! 
Maintenant tapez : 
BRUN SHARE 
BLOAD TEST1,A$300 
SHARE, A$300,L50 
et votre oreille sera désormais 
chatouillée — en permanence — par un 
son strident et haché pendant la suite de 
voe travail. Vous pouvez lancer un 
programme Applesoft par exemple, cela 


le petit programme 





ne l'arrêtera pas ! Le seul moyen : 
NOSHARE 
Ouf! 


Programmation 


SHARE utilise les interruptions VBL 
de la carte souris qui doit êhre placée en 
slot 4. Il prend la main à chaque 
interruption, décompte alors le nombre 
d'impulsions déjà passées, et décide 
alors quel programme doit être 
commuté. 

La commutation consiste à échanger la 
page 1 (pile du 6502) avec un buffer 
mémoire de même taille. On sauve 
aussi les différents regiskes et on sort de 
l'interruption par une instruction RTI. 
Si vous êtes sûr de vos programmes, 
vous pourrez envisager de n'échanger 
que la partie supérieure de la pile. 


Attention SHARE ne sait gérer qu'un 
maximum de deux programmes 
simultanément. Par ailleurs aucun test 
d'erreur n'est effectué pour laisser le code 
le plus compact possible : donc pas 
d'incohérences sinon. plantage assuré. 


Optimisation 


Lorsque deux programmes s'exécutent 
en même temps, il est évident qu'ils 
iront deux fois moins vite pour finir le 
même travail. Pas question donc de 
jouer aux Space Invaders ! 

Voici donc introduites jes notions de : 

- temps elapsed : temps total 
nécessaire ; 

- temps CPU : temps pendant lequel 
le processeur fait effectivement 
tourner le programme ; 

- temps overhead : temps nécessaire 
aux commutations et à la gestion du 
multi-tâches. 
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Les systèmes d'exploitation des très 
gros ordinateurs, qui gèrent 
simultanément plusieurs milliers de 
programmes, sont parfois considérés 
conune les systèmes les plus complexes 
créés par le cerveau humain. Vous 


avec CMDLOAD par CMDLINK 
(voir Pom's 20) ; 
TEST & TESTS petit programme de 


test émettant un bip. 








Récapitulation Test 


Ce programme n'est qu'un exemple de 
l'utilisation de SHARE. II génère un 
‘bip’ continu. Après activation de la 
routine par SHARE, A$300, L50 par 

















































n'aurez donc aucun mal à améliorer 
SHARE avec quelques fonctions 


exemple, cette routine sera exécutée par 
intermitence (d'où un bip haché) et 


Source TEST.S 


supplémentaires… Assembleur Merlin-Pro l'ordinateur restera disponible pour toute 
org $300 autre application. 
Fichiers sur la disquette debut ldx £$80 Après avoir saisi cette récapitulation 
Pom’s loop stx $C030 sous moniteur, vous la sauvegarderez 
SHARE.CODESS source Merlin-Pro en dex par: BSAVE TEST, A$300, 110 
formnat text : bp1 1oop 0300:A2 80 8E 30 CO CA 10 FA 
SHARE assemblage du source, chaîné bmi debut 0308:30 F6 





$ d erne 
Source SHARE.CODE.S er 


Assembleur Merlin-Pro STA $BES4 nom de fichier possible 
LDA Æ£%120010000 
RRÉRRIRARAÉARRARRAARÉRARANANA NAN À À À À À À À À À À À À À STA SBESS parametre à et L 
* * LDA £4 longueur de ?’SHARE' - 1 
né MULTI-TACHE * STA $BE52 
* Avril 1987 * RAP LDA RAPPEL indique à ProD0S où rappe 
= * ler le progranme 
RRRRRRRRRRRRRRRRRRÉRÉRRRRRRR ARR R tRRR tt RAR LDA RAP+1 après avoir extrait les p 
aramètres 
" Commandes ProDOS : STA $BESQO {Adresse : À - Temps de p 
: artagé : L) 
" ] SHARE, A$300,L33 33 % du temps alioué au LDA RàP+2 
* Ou ] SHARE,A768,L33 programme en $300 STA $SBE51 
* ] NOSHARE stoppe le mode multitäche BEN CLI 
* 1] DOSRARE annule l'effet de NOSHARE CLC 
RTS demande à ProDOS de trouv 
ORG $2100 reloge par CMDLOAD er les paramétres 









START CLD non nécessaire RAPPEL LDA $BES7 ProDOS revient par ici 
LDA £>FIN+5100 fin CMP  £$90 doit contenir 90 
LDA £>LONG-S5100 BNE BEN si on à tout : adresse et 
NON LDA S$FF58 adresse de la commande ex temps 
térieure précédente 
LDA SBES8 
COM LDA S$SBE6C point d'entrée réel des c STA AOB+1 
ommandes LOA S$SBES59 
STA GETCHAR+1 STA ADH+1 À est transcrit vers le p 
LDA $BE6D rogramma 
STA GETCHAR+2 initialise le pointeur ve LDA SBE60 
rs le buffer commande BNE BEN doit être 00 
LDX £1 LDOA S$BE5F charge le paramètre L {te 
JSR GETCHAR charge le ler caractère aps) 
CMP £L's' et le conpare...sHARE ? CMP £S21 
BEQ S BEQ Z21A0 
CMP L'N' ou bien nOSHARE ? CMP £S19 
BEQ N1 BEQ Z2193 
CMP £'D' ou dOSHARE ? CMP £S32 
BEQ DI1 BEQ Z21AD 
CMP £$4B 
ETNON CLI pas pour nous BEQ Z21CS 
SEG CMP £$42 
UMP  (NON+1) retour à la commande préc BEQ Z2188 
édente... UM BEN 
D1 JMP D 
Fe 7 + RE SHARE FONCTIONNE 
STA TEMPO 
GETCHAR LDA $FFFF,X charge un caractère du bu LDA £501 SOUS ProDOS SUR LES 
nn sa Teæi | Apple //e. IL FONC- 
RTS JMP  BOK 
TIONNE AUSSI SUR LES 
S LOX £l 221A0 LDA £$02 
JSR TEST vérifie "SHARE" Érranes Apple 1/C QUI ONT 
BCS  ETNON LDA £$s01 






LA SOURIS EN PORT 4. 
























Z21AD 


Z21B8 


221C5 


BOK 


NOSHARE 


M_NO0 


DOSHARE 


M_DO0 
ETNON1 


TEST 
TESTI 


OK 


ERR 


RETOUR 


AD2 


£$01 
TEMPO 
TEMP1 
BOK 


£$01 
TEMPO 
£$02 
TEMP1 
BOK 


£$01 
TEMPO 
£$03 
TEMP1 


BEGIN 


RETOUR 


GETCHAR 
£ "Or 
EINONI 


TEST 
ETNONI 


$c412 
M_NOO+1 
£$C4 
£$40 
£$01 
$C400 


RETOUR 


GETCHAR 
£ MOIE 
ETNON1 


TEST 
ETNONI 


$c412 
M_DO0+1 
£$C4 
£$40 
£$09 
$c400 


RETOUR 
ETNON 


£0 
GETCHAR 
TAMP, Y 
ERR 


£5 
TEST1 


£0 

SBE54 
SBE55 
$BE53 
OK 

AD2+1 
SBE50 
AD2+2 
SBES51 


enfin lance le multitäche 
autorise interruptions 
fin 


teste le "NOSHARE' 


empêche interruptions VBL 
va en SETMOUSE 


teste le "DOSHARE' 


teste presence de SHARE 


restaure interrupt. VBL 
va en SETMOUSE 


BECIN 


ADR 


ADA 


ADB 


LOOPBIS 


MOUSE1 


MOUSE 2 


DEBUOT 


SEI 


STX 


$C419 
MOUSE1 +1 


$c412 
MOUSE2+1 


$C413 
MOUSE3+1 


DEBUT 
ADR+2 
ADR+1 
S3FF 
$S3FE 


£$60 


£$00 


TEMPO 
OUI 0 


TEMP1 
OUI1 


SSs0 
SS1 


£0 
$100,X 


PZO,X 
PZ1,X 


LOOPBIS 


£0 
NUM 


£$C4 
£$40 
$C4BC 


É$C4 
£$40 
£$09 
$C4B3 


SAVX 


INITMOUSE 


SETMOUSE 


SERVEMOUSE 


permet relogt ({ProDos) 
poids fort 
poids faible 


initialise le vecteur des 
interruptions 
vers la routine. 


initialise 1a pile de tel 

le manière que RTI 

provoque un saut en $6000 
fZ2ème programme) 

Ceci pour le démarage. 

La pile doit étre du type 
<registre d'etat> 

et <compteur ordinal> 


initialise le partagé du 
temps machine pour 
la boucie... 


sauve le pointeur de pile 
toujours pour 
le démarage du programme 


boucle pour copier la pil 
e dans les 
buffers du programme 


annule l'effet des empile 
ments précédents 
L'ancienne pile a été sau 
vegardée avant 


le ler programme va s'exé 
cuter 


appele les routines souri 
Ss (INTIMOUSE) 


appele SETMOUSE demande 1 
es interruptions VBL 


revient comme s'il ne s'é 
tait rien passé 


adresse d'arrivée d'une i 
nterruption 
sauve les registres (acc 





10 


Pom's n° 35 








STY SAVY 
LDX £SCA4 
LDY £5$540 
MOUSE 3 USR $C4C4 
LDX SAVX 
LDY SAVY 


DEBUT2 LDA NUM 


UT DEC OUII 


LDX £$00 
LOOPO LDA $100,X 
STA P2Z1,Xx 
LDA P20,Xx 
STA $100,X 
BNE LOOPO 
LDA £0 
STA NUM 
LDA SA0 


LDX SS0 


LDX SX0 
LDY sy0 


RET LDA 5$45 


UTO DEC OUIC 


LOOP4 ZLDA 


Porm's n° 35 


est en $45) 


appele SERVEMOUSE 


et restaure les registres 


quel programme s'exécutai 
are 
c'est le ler, va en UT0 


c'est le second.Faut il c 
hanger ? 

si non, reviens 

il faut changer, remet le 
pointeur de 

boucle a sa valeur maxima 
le 


restaure l'accumulateur 
et sauve tous les registr 
es pour le programre 1 


ainsi que le pointeur de 
pile 


boucle transférant la pil 
e vers son buffer (1) 


et transfert le buffer (0 
] vers la pile 


et indique que le ler pro 
gramme va s'exécuter 


restaure les registres du 
ler programme 
sans oublier la pile 
retour d'interruption {ex 
écute le progranme 1) 
arrive ici s'il faut lais 
ser s'exécuter le 
programre plus longtemps 
le progranme 1 vient de s 
'exécuter 


faut 11 encore le laisser 
faire ? Oui, en RET 


on vient d'exécuter le 0 


on sauve les registres 


transfert la pile vers le 
buffer 


À l'heure où votre Apple // estunpeu à l'étro it dans 
ses disquettes, un choix objectif s'impose. 
Quelques cases vides vo us permettro nt de mesurer 
l'apport de Speedisk. 


Speedisk" estunlecteur de dis que — virtuel — qui 
conserve vos fichiers grâce à sa batterie et vo us les 
restitue quasi-instantanément. 

Speedisk®"* est une carte électro nique sans pièce 
en mouvernent, vue par votre ordinateur comme 
tout autre volume ProDOS, mais ultra-rapide et 
fiable. 




































À vous de compléter : Speedisk 
Accès à l'information 0,2 ms| 
æ Blocs Pro DOS lus en 15 100 
< Hooter sur Basic.Systern =3 S 
æ BRUN FILER -0,5s 
© BRUN APPLEWRITER = 0,55 
æ Sauver un texte de 46Ko 

depuis AppleWriter =5S 
& Lancer AppleWorks =1s 
Écrire un enregistrement 





‘Text’ de 100 octets 











& Booter sur le Finder = 155 
& Passer de Launcher à 

GSPaint =175S 
& ‘trajet’ ProDOS 16, 

Launcher, MouseDesk, 

GSWrite = 345 
æ Capacité mérnoire 1 024Ko 
& Tarif TIC 4 490,00 F 


Speedisk®" existe égalernent en vers ion 384Ko et 
peut-être dotée d'une option horloge compatible 
ProDOS. 

Speedisk®"”* fonctionne sur les Apple ][+. Apple //e 
et Apple IIGS, elle occupe un seul connecteur et sa 
batterie (charge automatique) garde les données 
deux mois ordinateur hors tension. La carte est 
garantie un an. 


Plus de renseignements ? Vous souhaitez 
une documentation ? une aide 
pour la comparaison ? 


N $ 
Utilisez ce bon : on 


Adresse : 


LOGMA - 12, rue d'Anjou - 78000 Versailles (1) 39 51 24 43 













IL 


OS es où EE A CO RE, 








STA P2Z0,X 20F0:B9 38 60 80 40 20 10 08 2378:00 00 00 00 00 00 00 00 

20F8:04 02 01 00 00 00 AD 99 2380:90 00 00 00 00 00 00 00 

EDA PZ1,X et le buffer vers la pile 2100:D8 29 26 A9 04 AD 58 FF 2388:00 00 00 00 00 00 00 00 

STA $100,X 2108:A0 6C BE 8D 31 21 AD 6D 2390:00 00 00 00 00 00 00 00 

INX 2110:BE 8D 32 21 A2 01 20 30 2398:00 00 00 00 00 00 00 00 

BNE  EOOP4 2118:21 C9 53 F0 17 C9 4E F0 23A0:00 00 00 00 00 00 00 00 

2120:0C C9 44 FO 05 58 38 éc 23A8:00 00 00 00 00 00 00 00 

LDA £1 2128:06 21 4C F6 21 4C D6 21 23B0:00 00 00 00 00 00 00 00 

STA NUM 2130:BD FF FF 60 A2 01 20 19 23B8:00 00 00 00 00 00 00 00 

2138:;:22 B0 EA A9 00 8D 53 BE 23C0:00 00 00 00 00 00 00 00 

LDA SAl 2140:A9 10 8D 54 BE A9 90 8D 23C8:00 00 00 00 00 00 00 00 

LDX S51 restaure tous les pointeu 2148:55 BE AS 04 8D 52 BE AD  23D0:00 00 00 00 00 00 00 00 

r= 2150:61 21 AD 50 21 8D 50 BE 23D8:00 00 00 00 00 00 00 00 

TXS 2158:AD 51 21 8D 51 BE 58 18 23E0:00 00 00 00 00 00 00 00 

EDX SX1 2160:60 AD 57 BE C9 90 DO F6 23E8:00 00 00 00 00 00 00 00 

LDY SYl 2168:AD 58 BE 8D 6E 22 AD 59 23F0:00 00 00 00 00 00 00 00 

RTT exécute le Ja. 2170:BE 8D 6B 22 AD 60 BE DO 23F8:00 00 00 00 00 00 00 00 

2178:E5 AD 5F BE C9 21 FO 20 2400:00 00 00 00 00 00 00 00 

2180:C9 19 FO OF C9 32 FO 25 2408:00 00 00 00 00 00 00 00 

28K ÉCR HAGGENE MEME 2188:C9 4B FO 39 C9 42 FO 28 2410:00 00 00 00 00 00 00 00 

2190:4C 5E 21 A9 03 8D 57 25 2418:00 00 00 00 00 00 00 00 

Ne TE RS 2198:A9 O1 8D 58 25 4C CF 21 2420:00 00 00 00 00 00 00 00 
ro 21A0:A9 02 8D 57 25 A9 01 8D 2428:00 00 00 00 00 00 00 00 

21A8:58 25 4C CF 21 A9 01 8D 2430:00 00 00 00 00 00 00 00 

NOM DS 1 qui vient d'être exécuté 2180:57 25 8D 58 25 4C CF 21  2438:00 00 00 00 00 00 00 00 
ê 2188:A9 01 8D 57 25 A9 02 8D 2440:00 00 00 00 00 00 00 00 

21C0:58 25 4C CF 21 A9 01 8D 2448:00 00 00 00 00 00 00 00 

SAVX DS 1 21C8:57 25 A9 03 8D 58 25 20 2450:00 00 00 00 00 00 00 00 
SAVY DS 1 21D0:49 22 58 4C 2D 22 E8 20  2458:00 00 00 00 00 00 00 00 
21D8:30 21 C9 4F DO 38 Eg 20 2460:00 00 00 00 00 00 00 00 

PZ0 DS 256 sauvegarde la page 0 et p 21E0:19 22 BO 32 AD 12 C4 8D  2468:00 00 00 00 00 00 00 00 
ile du 1 21E8:F1 21 A2 C4 AO 40 A9 01  2470:00 00 00 00 00 00 00 00 

SAQ DS 1 21F0:20 00 C4 4C 20 22 E8 20 2478:00 00 00 00 00 00 00 00 
Sx0 DST 21F8:30 21 C9 4F DO 18 E8 20 2480:00 00 00 00 00 00 00 00 
sY0 DS 2200:19 22 B0 12 AD 12 C4 80 2488:00 00 00 00 00 00 00 00 
Ss0 DS 1 2208;:11 22 A2 C4 A0 40 A9 09 2490:00 00 00 00 00 00 00 00 
2210:20 00 C4 4C 2D 22 4C 25 2498:00 00 00 00 00 00 00 00 

PZ1 DS 256 sauvegarde la page 0 et p 2218:21 AO 00 20 30 21 D9 45 24A0:00 00 00 00 00 00 00 00 
ile du 2 2220:23 DO 08 E8 C8 CO 05 DO 24A8:00 00 00 00 00 00 00 00 

SA1 DST 2228:F2 18 60 38 60 A9 00 8D 24B0:00 00 00 00 00 00 00 00 
SX1 DS 1 2230:54 BE 8D 55 BE 80 53 BE 24B8:00 00 00 00 00 00 00 00 
SY1 DS 1 2238:AD 29 22 AD 39 22 8D 50 24C0:00 00 00 00 00 00 00 00 
SS1 Ds 1 2240:8E AD 3A 22 8D 51 BE 18 24C8:00 00 00 00 00 00 00 00 
2248:60 AD 19 C4 8D 9F 22 AD 24D0:00 00 00 00 00 00 00 00 

our 0 ps 1 pointeur interne (cycles) 2250:12 C4 8D A8 22 AD 13 C4 24D8:00 00 00 00 00 00 00 00 
QUI1 ps 1 2258:#D B8 22 AD AC 22 AD 5D 24E0:00 00 00 00 00 00 00 00 
| 2260:22 AE 5C 22 8D FF 03 8E 24E8:00 00 00 00 00 00 00 00 
TEMPO DS 1 nombre de cycles pour 1e 2268:FE 03 A9 60 48 A9 00 48 24F0:00 00 00 00 00 00 00 00 
prg 2270:08 AD 57 25 8D 55 25 AD 24F8:00 00 00 00 00 00 00 00 

TEMP1 DS 1 nombre de cycles pour le 2278:58 25 8D 56 25 8A 8E 50 2500:00 00 00 00 00 00 00 00 
bas le 2280:24 8E 54 25 A2 00 BD 00 2508:00 00 00 00 00 00 00 00 

2288:01 9D 4D 23 9D 51 24 E8 2510:00 00 00 00 00 00 00 00 

FIN _ " 2290:D0 F4 68 68 68 A9 00 8D 2518:00 00 00 00 00 00 00 00 
Paire > ErN Sans 100 2298:4A 23 A2 C4 A0 40 20 BC 2520:00 00 00 00 00 00 00 00 


22A0:C4 A2 C4 A0 40 A9 09 20 2528:00 00 00 00 00 00 00 00 
22A8:B3 C4 58 60 78 8E 4B 23 2530:00 00 00 00 00 00 00 00 
22B0:8C 4C 23 A2 C4 A0 40 20 2538:00 00 00 00 00 00 00 00 


Récapitulation 22B8:;C4 C4 A£ 4B 23 AC 4C 23 2540:00 00 00 00 00 00 00 00 


22C0:AD 4A 23 PO 41 CE 56 25 2548:00 00 00 00 00 00 00 00 


Share 22C8:D0 39 AD 58 25 8D 56 25 2550:00 00 00 00 00 00 00 00 


22D0:A5 45 8D 51 25 8E 52 25 2558:00 00 85 DE A9 A3 8D 61 
22D8:8C 53 25 BA 8E 54 25 A2 2560:9F 20 73 F2 20 00 9A 20 





Après avoir saisi cette récapitulation 22E0:00 2D 00 O1 9D 51 24 BD  2568:F4 9F 20 17 SA 20 6C 9F 
sous moniteur, vous la sauvegarderez par ë 22E8:4D 23 9D 00 01 E8 DO Fi 2570:4C BA 9A 20 62 9F 2C 46 
BSAVE SHARE, A$2000, L1536 22F0:A9 00 8D 4A 23 AD 4D 24 2578:BE 10 03 4C 67 9D 2C 44 


22F8:;:AE 50 24 9A AE 4E 24 AC 2580:BE 10 03 4C 16 9C 2C 43 
2000:AD 00 BF C9 4C F0 05 A9 2078:85 49 DO D3 A0 00 A9 21 2300:4F 24 40 A5 45 40 CE 55 2588:BE 30 24 A5 33 C9 DD F0 
2008:87 4C ED FD AD 4D BE F0 2080284 3C 85 3D 18 6D 04 21 2308:25 DO F8 AD 57 25 8D 55 2590:C7 20 00 9A AC 3E BE AC 
2010:05 A9 15 4C 09 BE AD C4 2088:84 42 88 84 3E 85 3F AD 2310:25 A5 45 8D 4D 24 8E 4E 2598:40 BE 20 10 FD C9 88 DO 
2018:21 69 00 20 98 20 90 05 2090:08 BE 85 43 C8 4C 2C FE 2318:24 8C 4F 24 BA 8E 50 24 25A0:0B AS 33 C9 BE F0 03 8A 
2020:A9 DE 4C 09 BE CD 02 21 2098:8D FB 20 A5 74 18 69 O4 2320:A2 00 BD 00 01 SD 4D 23 25A8:F0 EA A9 88 4C 8D 9A 91 
2028:90 F6 AE 08 BE 8D 08 SE 20A0:8D FC 20 86 3D CE FC 20 2328;:BD 51 24 9D 00 01 E8 DO 25B0:28 2S 33 C9 BE FO 3B AD 
2030:8E 07 21 AE 07 BE 8E 06 20A8:F0 47 AD FC 20 8D FD 20 2330:F1 A9 01 8D 4A 23 AD 51 25B8:00 CG 10 11 C9 83 DO 0D 
2038:21 A0 00 8C 07 BE 48 E9 20B0:AD FD 20 48 4A 4A 4A AA 2338:25 AE 54 25 9A AE 52 25 25C0:20 FB B2 AD 42 BE DO 39 
2040:21 85 3C 68 38 E9 04 85 20B8:68 29 07 A8 B9 F3 20 3D 2340:AC 53 25 40 00 53 48 41 25C8:£#D 10 CO F0 34 20 8A 9D 
2048:74 A9 21 85 49 84 48 AO 20C0:54 Br DO El AS 3D DO 09 2348:52 45 00 00 00 00 00 00 25D0:20 6c 9C B0O 25 20 62 9F 
2050:00 B1 48 FO 27 20 8E F8 20C8:B9 F3 20 1D 58 BF 9D 58 2350:00 00 00 00 00 00 00 00 25D8:90 04 CA BD 00 02 09 80 
2058:A4 2F C0 02 D0 OF B1 48 20D0:BF AD FC 20 38 CE FD 20 2358:00 00 00 00 00 00 00 00 25E0:9D 00 02 8A DO F4 20 00 
2060;:C9 21 90 09 CD 02 21 80 20D8:ED FD 20 CD FB 20 DO DQ 2360:00 00 00 00 00 00 00 00 25E8:9A 20 D5 9A 2C 53 BE 10 
2068:04 65 3C 91 948 A5 48 38 20E0:A5 3D DO 07 18 AE FD 20 2368:00 00 00 00 00 00 00 00 25F0:DC 60 20 8A 9D 20 48 9C 
2070:65 2F 85 48 A5 49 69 00 20E8:E8 8A 60 A9 00 85 3D FO 2370:00 00 00 00 00 00 00 00 25F8:90 F7 20 45 B2 C9 05 DO 
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Sylvie Gallet 


Au-delà de son caractère utilitaire, cet accessoire de 
bureau ‘classique’ pour Apple IIGS formera 
certainement un tremplin pour la réalisation de 


nombreux autres CDAs. À vos idées ! 











e programme proposé ici 
est un petit accessoire de 
bureau classique à deux 
titres : c'est un CDA et 
sa fonction est de vous 
doters d'un nouveau 

} réveil-matin qui 
peut — si vous 
avez le sommeil (très) léger —- 
vous tirer des bras de Morphée 
ou, plus certainement vous avertir 
qu'il est temps d'abandonner 
votre ordinateur favori pour 
vaquer à d'autres occupations 
(nécessairement moins passion- 
nantes)... 


La programmation de la sonnerie 
peut se faire sur les 24 heures qui 
suivent l'heure courante, l'arrêt 
de la sonnerie pouvant être 
manuel ou automatique. 


Installation 


‘Alanne’ est un accessoire de 
bureau classique accessible 


SOFTWORLD 


17, Av. Emile Zola, el Paris. TÉL 40 59 02 96 


anges: 


Basic Compiler 1.0 Microsoft 


Light Speed C Think 
Light Speed Pascal Think 
Turbo Pascal Borland 
Prolog Adv.A.I. Systems 
ZBasic 401 Zedcor 
ZBasic Construction Set 


CATALOGUE GRATUIT SUR DEMANDE 


comme le tableau de bord par 
Control--G-Esc à condition qu'il 
ait été placé dans le catalogue 
SYSTEM/DESK.ACCS d'une 
disquette contenant ProDOS 16. 


Il est installé automatiquement 
dans le menu des CDAs en même 
temps que les autres CDAs lors 
du chargement du système et de 
l'application choisie. 


Utilisation 
Description 


L'utilisation en est fort simple : 


1 Appeler le menu des CDAs par 
Control--G-Esc. 

2 Sélectionner ‘Alarme program- 
mable'. 

L'écran qui apparaît est identique 

aux écrans du tableau de bord : 

dans un cadre (superbe), on 

trouve : 


Vide : 


Logiciels : 





« le nom de l'accessoire ; 

« les 4 réglages possibles ; 
la date et l'heure mises à jour 
en permanence (le format 
d'affichage des heures est celui 
choisi dans le ‘Tableau de 


Bord/Horloge’ : mode 24 
heures ou mode AMIPM. En 
prime, vous avez droit au jour 
de la semaine) : 

« une ligne de commandes 
indiquant les touches utili- 
sables. 


La sélection d'une option se fait 
par les flèches T et JL. 


La modification d'une option se 
fait par les flèches < et —. 


Note : les modifications sont 
prises en compte immédiatement: 
la sonnerie peut donc se 
déclencher et s'arrêter lorsqu'on 
change les réglages des heures ou 
des minutes. 


Pour valider les réglages, appuyer 
sur 1. 

Pour annuler et revenir aux 
réglages précédents, sortir par 
Esc. 


À la première utilisation, les 
réglages par défaut sont les 
suivants : 


Bon de Commande à envoyer à SOFTWORLD 
c Prénon : 


Ta : 
Prix FIC 


PROFESSIONAL PROGRAMMIER"S 


ERTIENDIER TM 


Editeur : Invention Software 
Version dotée du code source à 100% 


Tous les secrets de programmation sont révélés 
4 
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Sonnerie : arrêt 
Arrêt manuel 
Heures : 0 


Minutes : 0 
Par la suite, les réglages par 
défaut sont ceux qui ont été 
validés lors de la précédente 
utilisation. 


Sous le capot... 
les CDAs 


Un accessoire de bureau classique 
est destiné à fonctionner dans un 
environnement... classique (non 
basé sur le concept d'événements 
et de ‘bureau électronique’) : 
contrairement aux NDAs 
accessibles par le menu # du 
bureau (qui sont activés soit 
quand leur fenêtre est au dessus 
du bureau, soit périodiquement 
selon une fréquence définie dans 
le bloc d'identification et sans 
intervention de l'utilisateur), un 
CDA prend le plein contrôle de la 
machine pendantune interruption 
provoquée par la frappe au clavier 
de Control-G-Esc. 


Chaque fois que l'utilisateur 
appuie sur Control-G-Esc, et 
dès que le système est disponible, 
le Desk Manager sauve les pages 
TEXT des bancs 0, 1, $EO, et 
$E1 ainsi que les pages 0 et 1 du 
banc © (plus quelques babioles 
pour son usage personnel) et 
affiche le menu des CDAs qui 
contient les deux CDAs résidents 
(Tableau de Bord et Affichage 
Secondaire) et les CDAs (11 au 
maximum) chargés en RAM. 


Le CDA choisi est activé et il 
dispose alors de toutes les 
ressources de la machine, avec 
l'obligation de gérer lui-même ses 
entrées/sorties. Il doit bien sûr 
veiller à ne pas perturber la 
mémoire utilisée par l'application 
interrompue, utiliser avec 
prudence des zones-mémoire qui 
ne lui appartiennent pas (mais, si 
cela est nécessaire, il peut 
demander au Desk Manager de lui 
attribuer de la mémoire 
supplémentaire). 


Lorsqu'on quitte le CDA, le Desk 


Manager réaffiche le menu des 
CDAs et, si on quitte ce menu, il 
restaure les pages sauvées au 
début puis il rend la maïn à 
l'application. 


Structure d'un CDA 


Un CDA comprend un bloc 
d'identification suivi du 
programme, le tout enregistré 
dans un fichier de type $B9 et 
placé dans le catalogue 
SYSTEM/DESK.ACCS. 


Le bloc d'identification regroupe : 

+ le nom de l'accessoire : une 
chaîne de type pascal 
(c'est-à-dire précédée de sa 
longueur) : str'Alarme 
programmable; 

° un pointeur (4 octets) sur 
l'unique point d'entrée du 
programme : de i4'MAIN'; 

° un pointeur (4 octets) sur la 
routine de fermeture de 
l'accessoire : de i4'FIN'. 
Cette routine est appelée 
chaque fois que ProDOS ou 
une application appelle Desk- 
ShutDown. 


Le programme 


Il est appelé par le DeskManager 
en mode natif pur (registres et 
mémoire sur 16 bits). Il 
commence par sauvegarder le 
banc de données et le rendre égal 
au banc de programme. Viennent 
ensuite la réalisation de la page 
d'accueil (dans le même mode 40 
ou 80 colonnes que celui du menu 
des CDAs) et l'affichage des 
réglages par défaut. 


On met ensuite en place la routine 
qui affichera la date et l'heure 
système et qui utilise 
l'interruption d'une seconde. 


Arrive enfin la boucle principale 
qui lit toutes les commandes 
entrées au clavier et qui aiguille en 
conséquence : 

+ soit sur le traitement des 
flèches haut ou bas : simple 
déplacement de la barre 
en vidéo inverse ; 


« soit sur celui des flèches 





gauche ou droite : bascule 
marche/arrêt ou manuel/ 
automatique ou bien augmen- 
tation/diminution du nombre 
d'heures ou minutes. Chaque 
utilisation des flèches pro- 
voque la mise à jour des 
paramètres pour la sonnerie ; 

* soit vers la sortie par Escape 
ou par Retum. 


La routine de fermeture 


Elle remet la sonnerie sur arrêt si 
celle-ci est... sur marche. 
Remarquons que pour quitter une 
application et recharger ProDOS 
16 lorsque Alarme est en marche, 
il est indispensable de rebooter 
(avec Control-G-Reset ou 
l'option REBOO7 du menu 
QUITTER). Ne pas utiliser 
PR£slot à partir du basic, cela se 
solderait par un plantage... tous 
les 1/4 de seconde (en effet, la 
zone mémoire où se trouvait 
Alarme est soit effacée si la 
nouvelle disquette contient moins 
d'accessoires, soit écrasée par un 
autre accessoire, soit écrasée par 
le même accessoire qui est 
d'abord chargé à son adresse 
définitive et ensuite relogé). Pour 
passer d'une application à l'autre, 
la commande Bye ou le Finder ne 
poseront pas de problème avec cet 
accessoire actif. 


Les interruptions 


Alarme utilise deux interruptions : 


« l'interruption d'une seconde 

pendant l'accès au CDA. Le 
vecteur est mis en place à l'entrée 
et l'ancien vecteur est restauré à la 
sortie. Cette interruption n'est 
autorisée que pendant l'attente 
d'une touche : dans ce cas, aucun 
affichage n'est en cours et on est 
en mode vidéo nornal, la date et 
l'heure ne risquent donc pas 
d'être affichées en inverse ; 


+ l'interruption de 1/4 de 

seconde quand la sonnerie est 
sur marche : l'ancien vecteur est 
restauré quand on la met sur arrêt. 


Le traitement des interruptions est 
très simple, l'environnement a 
déjà été sauvé par le gestionnaire 
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d'interruption ; il faut savoir 
toutefois que les routines 
utilisateur sont appelées en mode 
émulation et qu'il faut terminer en 
mettant la retenue à 0 (cic) en 
mettant l'interruption à 0 
(instruction variable suivant la 
source d'interruption) et finir par 
un simple rt1. L'environnement 
est alors restauré et le programme 
peut reprendre son cours. 


Utilisation des outils du 


IIGS 
d—— 


Alarme ut!lise des fonctions de 
deux outils : Miscellaneous Tools 
(outils divers) et Text Tools. En 
voici la liste avec un bref 
descriptif : 


Miscellaneous Tools 


ReadBParam : pennet de lire un 
octet de la RAM préservée par 
batterie et contenant les 
paramètres du système 
modifiables grâce au Tableau 
de Bord. 


ReadTimeHex : lecture de la date 
et de l'heure système, le 
résultat est donné sur 8 octets. 


ReadAsciTime : lecture de la date 
et de l'heure en ASCII, la 
chaîne obtenue occupe 
toujours 20 octets, elle utilise 
le fonnat d'affichage choisi par 
l'uxlisateur. 


SetVector : affecte une adresse de 
vecteur d'interruption. 


GetVector : renvoie l'adresse 
d'un vecteur d'interruption. 


IntSource : autorise ou inhibe 
certaines sources d'inter- 
ruption. 

FWEntry : pennet l'appel d'une 
routine système Apple // à 
partir d'un programme en 
mode natif avec passage de 
valeurs pour les registres À, 
X; À, 


Text Tools 


WriteStuing: affiche une chaîne de 
type Pascal sur le périphérique 
de sortie en service. 

WriteChar : affiche un caractère 
sur ledit périphérique. 
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A propos du 
source... 


Tous les appels aux outils sont 
écrits grâce aux macros 
correspondantes (elles sont 
facilement reconnaissables au ‘_” 
qui précède leur nom). Les autres 
macros proviennent du fichier 
M16.UTILITY, CE SONt: 
pushword £n pea n 
pushlong £n pea nù-16 (1) 
pea n 
str ‘chaine dc il'ig chaine’ 
de c'chaine' 
writestradr pea adr-16 (1) 
pea adr 
_WriteString 
long rep £$30 
longa on (2) 
longi on 
short sep £$30 
longa off 
longi off 
rep £$20 
longa on 
sep £$20 
longa off 
native clc 
Ace 
long 


longm 


shortm 


(1)  adrù-16 : est un opérande 

sur 2 octets représentant le 
banc de adr (octet fort : O, octet 
faible : banc). Le code obtenu 
n'est pas toujours identique à 
celui qui est affiché dans le listing 
d'assemblage. 


(2)  longa on/off longi on/off : 
longa informe l'assembleur 

que les mots manipulés par A 

sont sur 16 bits (on) ou sur 8 bits 

(off). 

longi : même chose pour les 

registres index X et Y. 


Ces deux directives ne génèrent 
aucun code et des instructions rep 
£$... ou sep £$... sont néces- 
saires pour faire passer le micro- 
processeur dans le mode choisi. 


Les paramètres fournis aux 
fonctions des outils et ceux qui 
sont retournés transitent par la 
pile : on commence par réserver 
de la place pour les paramètres de 
sortie (signalés par S dans le 








EE ES © CS JR 


source) on empile ensuite les 
paramètres d'entrée (E). Au 
retour de la fonction, il ne reste 
plus qu'à récupérer les paramètres 
de sortie qui se trouvent au 
sommet de la pile. 


Saisie du 
programme 


Dans ces pages et sur la disquette 
Pom’s, vous trouverez : 


+ le source Alarme.Src créé à 
l'aide d'Orca/M 


+ le fichier Macasmcopy qui 
permet de générer le fichier de 
macros, d'assembler, linker, 
transformer Alarme en fichier 
de type $B9 et installer ce 
dernier dans le directory 
SYSTEM/DESK.ACCS du drive 1 
et dans celui du drive 2. 


+ Alarme, l'objet dont le type est 
type $B9. 


Sans assembleur, vous pourrez 
utiliser Alarme de la façon 
suivante : 


« Si vous avez la disquette 
Pom’s, copier le fichier 
Alarme dans le dossier de 
votre disquette de travail, puis 
démarrer sur cette disquette : 
l'accessoire est installé 
automatiquement. 

+ Si vous ne l'avez pas, sous 
Moniteur, taper le code Alanne 
listé ci-après puis le sauve- 
garder par : 

create alarme, T$B9 

bsave alarme, a$2000, 1307 


2,t$B9 “ 





Fichier Exec 
MACASMCOPY 


macgen alarme.srce alarme.m 
acros alarme.macros .dli 
/macros/mi6.= 

asml alarme.src 

filetype alarme cda 

copy alarme desk.accs/alar 
me 

copy alarme .d1l/system/des 
k.accs/alarme 
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Fichier ALARME.SRC 
Assembleur Orca/M 





CELELELELEEE ER EEE EEE 70700077777777277777777777717)12) 


Accessoire de bureau: Alsme progranmr>le 
4C) Sylvie GALLET pour POM'£ 
Janvier 1938 


CERLELEEEEEEE EEE EEE EEE EE 777777777777777777,,,1,71117111717177172] 


absaddr on 
mload alarme.macres 
keep alarme 


CERLELEEE EEE EEE EEE TI TETE Z)2E/77777,77,,7,771,,,7117:1711111727)2] 


. L 
* Données identifiant le CDA , 
L LL 





LLLEEEEEEEEEEE EEE EEE EEE EEE EEE EEE EEE ET TEE TT TITLE EEE] 





CDAident START 


str ‘Alarme programmable! nom de l'acoessaf.re 


de i4'main" adresse d'ouverture 
do i4'#in' adresse de fermeture 
£ND 


CERELEELEEEEELEEEE ET] nn ttanttattttasanstatstetesaattannsnntttt 





. . 
. toutes les données utilisées par le programme + 
L LA 


nn nn nt tnt nn tt nn tit titre ssttsatttienenettsse 


DONNEES DATA 


APP PP RP dt dd dt td dR Cextes frttttttseseee sister re 


codes de controle: 
sus. 





+ les codes ucilisés sant: 


# 7: bip 24: déssctive caract souris 

‘ 12: fom feed 25: home, sans effacer l'écran 
; 14: vidéo normai 27: active caractères souris 

; 15: vidéo Înverse 


inverse dc il'2,15,24' 
normal de 11°2,24,14° 


+: définitions des lignes pour le tracé du cadre de l'écran: 








4 caractères souris utilisés: 
1548) 
{S4A) 
548) 
(S4C) 
f$62) 
(555) 
4$SA) 
: 4$5F) 


ROzEAURX 
rise. 
Me 


= qe 


lignel de il1'44,24,14',c" ‘,38c'"_',.c" ‘,11'15,27° 


ligne2 de 11'44‘,c'2‘,11'24,14',c' Alarmes pregramrable ‘ 
de 1115170" ', 1127", ©: :* 


ligne de 11°39',c'2',38c'L' 
bord str ‘_2' 


ligne de 41'43,28,24,14',c'Choîx:" 
de 11'15,27,28,72,28,85,28,74,28,75,28,28,24,14° 
dc c'Annuler:Esc',11'28,28",.c'OK:".{1"28,15.27, 77" 


ligneS de 11'46',c'_"‘,11"24,14',c' ‘,1i1°15,27',38c'L',11"24,14' 


+ cadre pour la date et l'heure: 


cadrel de 11*22',20c'_‘,11'15,27" 
cadre? de 11‘22',c°2',2011'28',.ct"_ 
cadte3 dc 11‘22',20c'L',i1'14,24" 





sonnerie str 'Sonnerte:" 


sonl str ! arret * 
son2 str ‘ marche' 
arret str 'Arrat:* 
arrl str ‘ menuel 4 
arr2 atr " automatique’ 
heure str ‘'Heurasi‘ 


minute str ‘Minutes: 
numstr atr ‘ 00 AM' pour afficher heures et minutes 
«+ buffer pour _ReadAsciiTime 


date str ‘ 01/01/87* 


ne pas séparer ces 2 instructions 





la longueur de time ent recouverte 
d'un espace ($A0) Pèr _PeadAsciiTime 


cime str ‘12:00:00 id 
de 11'25° 


+: jours de la semaine: 


; 2ussasesurrnnesm… 


d{ str ‘direnche' 
iu stz ‘ lundi ? 
za str ‘" aardi ‘ 
2e str ‘mercredi 
je str * jeudi 
ve str ‘vendredi! 
sa str ‘ samedi 


srrevvrvrsrrsstss Cables d'adresses et tabuiations #rsrrrssrrrmreuue 


+ tabulations: 


ta egu 50504 
caÿ equ 51009 


: les tabulations sont de la forme: VTAB (msb) HTAB (1sb) 


tabmsg de 12'e0.t0+5100, e0+$300. t0+5400" sonnerie arret heures 
minutes 
de 12'e0+9,e0+9, tO+$106.t0+5106" marche arret manuel 
actematique 
nenbre heures noabrs 


de 12'c0+5307,t0+5408" 


minutes 
tabcadre de 12 'ed0+$301,td0+$200,td0+5100,ta0+1" 
? 3 lign cadre date/heure 


tabdate de 12'ad0+5102' 
tabtime de 12'cd0+$205" date et heure système 


* adresses: 


adrrsg dc 12 ‘sonnerie, arret, hevre,minute adresses des chaines 
dc i2'sonl,son2.arrl, acr2z' 
adrcadre de 12‘cadre3, cadre2,cadre?, cadre1" 


adrjour de 12'di, lu-me,me. je, ve.sa* 








ssnsssnssstt données et zones de stockage “ttsssssssssns 


raxima dc 12'24,60" Z4 heures 60 minutes 


{ten ds 2 

valeurs ds 8 2 octets pour merche/arret 

# 2 autres pour mnus}/automatiaue 

+ 2 pour heures 2 pour minutes Prograuées 


defauts ds 8 velenrs non modifiéen si sortie Par esc 





arpe ds 2 indicateur du moce d'affichage de l'haure 
+ 00 si mode AM PM. Ü1 s1 mode 24 h 
temp ds 2 adresse de stockage tePoraire 
END 

LÉLRELEREEEEEEEEEEEEEEEELELLEELELEE LEE EEE ELLE L LEE LLLELLLLELE] 
. . 
» le programme » 
LA . 


LERLLLEELELELELEELEEEEE EEE EEE EE EL ELLE EE ELLE EL )LELELLEELLLELLLELELLELLE] 
MAIN START 

LLLLLERELLELLELELELLELLELEZ] corps du programme LELERLELEELLLLLELRLELLELELEL)! 
wndife eau $0020 marge gauche et largeur écran (banc 0) 
using DONNEES 


initialisations: 


banc de données: 


phb sauve banc de données 
phk banc de prugremæ := banc de données 
plb ces 3 Instructions sont fndispensabies 


dimensions de la fenetre: 
pushword £0 S 
pushword £519 £ Paramètre n° $19 de la Hattery Ram: 
: contient le mode vidéo 40 ou 80 colonnes 


_ReadBParam fonction $0C03 f#isomilanaous Tools) 

Ada 152800 

pix 

beg eciücol gi 0: 40 colonnes 541 1: 80 colonnes 

ora £50014 80 col -> marge gauche := 20, larg := 40 
ec4ôcol sea >maift 40 col -> marge Gauche :;æ= 0, larg := 40 


+ copie de defauts dans valeurs: 


J =mmmmnmmmmmmmmmmenemensns— 
idx £defauts adr source (16 bits poids faible) 
dy £valeurs “ destinatien " » La 
lda £7 nombre octets 8 déplacer (-1]} 
mvn defauts, valours bancs source, destination 


+ mode d'affichage des heures: 


mm mmmmmmmmmmmmmmss 
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pushvord £0 S plece pour rastuitge bne Ed 















































































Pushword 6533 E Parämètre n° $35 la Battery Fam à bri descend 
: lire : mode 24 b (Ul) ou AM PM (00) 24 cmp E$0B "haut ? ALARME 
_ReadBParam £anction $0C03 (Miscellaneous To01s] bre :5 
pla bri monta 
sta sm ES cm Ls58 R gauche ? FONCTIONNE 
bne :6 
: réalisation de l'écran: bri auodim SOUS 
; ===. té cop £515 " droite 7? 
bre ent D ProDOS 16 
notaæ pushword ESC gfface l'écran brl aucdiæ 
_WriteChar esetbip pushvord £7 
ide co _MritaChec SUR LES 
357 vht ab bea boucle 
#ritescr lignel haut du cadre Apple IIGS. 
writestr ligne : sorties: 
writestr :ignei J nes 
Ida €50002 A sert da compteur: on afficha ia chaire 
guivante pha bord composée de 5 caractères souris, ce { 1 - par escapa: coutes les modifications doivent étre annulées 
cm €$0016 da ligre 2 4 :à ligne 21 comprise à 
Pcs basecren 
xba ; le travail 4 effectuer dépend de l'état relatif de valeurs et de 
ora £$0027 VTAB :# compteur, HIAB := 39 -> ler ; defauts: 
387 vhtab oaractère sur le bord droit et 2-ème sur ; valeurs defauts somme  ©ravail 
writestr bord le bord gauche y ——— ee bn RG RÉ ACTES ET UE ALT SE 
pla ? erre’ arret 0 rien à faire 
ins 2 ; arret marche Î jsr onoff 
bra suivante + marche arret 1 jar onoff ; 
besecran ple ; marche marche 2) inhiber cimer 1/4 s, mettre à jour Les 
writestr ligned affiche la ligne de commandes : perem de bsep, autoriser *imer 1/4 5 
ida £51627 
337 vhcab sertiesr ldx £defauts+2 dans tous 1le3 cas, on réperte lea ÿ 
writestr lignes trait inférieur ldy Evaleurs+2 autres paramètres fmode d'arret, heures, 
idy £6 afficha cadre pour date et houre (4 lig) ide £E minutes) qui peuvent avoir été modifiés 
ei phy avan defauts, valeurs 
pea sadcelt-16 E pour _WriteString: adr haute 1de vaieurs 
ida adrcadre, y E ei ué “  baase Sie 
pha de defauts 
1da tabcadre, y beqg maji valeurs = defauts = Q 
jsr vhtab cp É1 somme = 1 7? 
_WriteString fonction S1CGC (Taxt Tools} bne esci non <-> som = 2 
piy Jer onoff oui 
dey bra maji 
dey esci puslword £5 si ja aonnerie est sur marche, mieux veut 
bpl el _IneSource inhiber l'interruption le temps de 
Ida £3 affiche les 4 options Jsr beeppers æodifier Îa routine qui is traite 
êta {ex pushvord £4 
e2 Jsr affiten IneSource 
dac item Bras maji 
bpi 02 
1de väieurs affiche ‘marche’ ou ‘arret‘' suivant : 2 - par revrn: 
ora £f vélaurs -> À :# 4 + valeurs de 0 
Jjsr affoœpt affiche la 5-iéms chaîne (À » 6} ou la 
5 6-ièma (A = 5) metajour 1dx £valeurs les valeurs daviennent ies defauts 
Âide veleurs+#2 affiche ‘manuel’ où 'eutomarique ldy £defauzs 
ora €6 A 1e 6 + (0 ou 1) si A = 6: 'manvel' Ida 17 
38r affopt et Am 7: ‘automatique* mun defaus, valeurs 
idx £4 valeurs, 4 con=ient les heures programmées ma 31 pushwocd ES15 £ on replace l'ancien vecteur... 
Jor affnum reslsi pea $0000 E ,..stocké ici adr haute 
ldx £6 valeurs,6 >: " minutes di resis2 paa 50000 E edr basse 
Js= affnum _fectVector 
atz item la barre inverse sera sur 'sonnerie:" pib restaure banc de données 
ne 
+ changement vecteur interruption } seconde; 
| NOUS none AN anRRSTEusSeSrnyme= UNE ; routine de fermeture appelée en cas de DeskShutDown: 
pushiong #0 S placs pour adresse ancien vectaur È 
pushword ££15 E n° de référence intarfUP:ian 1 seconde fin ÉNTRY 
_GetVector fonction $1103 de Miscellæn=ous Tools phb 
Pia on sauve cette adresse directemt dars la ph& 
sta resls2+l routine qu£ la res:aurera plb 
pla ida defau:s scnnerie sur 'arrec' ? 
gta resisit] bag bye eui -> rien à faire 
pushword £S$15 E encore lui... Jsr bespolf non => on l'arrete 
pushlong £afftime E adresse de notre routine scz defauts 
| _SetVector fonction 51003 {(Miscellansous) bye plb 
| jap affinv on peut enfin inversar ‘sonnerie: res 
: boucle principsle: lecture du clevier: ; :raitement des 4 flèches: 
8 == mousecsenmmnssssssuses ; mennnnnumanmmmnmmmmmmms 








boucle dlda £0 + déplacements de la barre en inverse: 
dsr vhtab Dom tes 
pushwvord €6 E n° de réf. autoris. d'inerrupt. 1 sec 
_IntSource fonction 52303 {Miscellaneous] + affiche l'iten sur lequel on 3e trouve en norml, descend où monte 
shoftm : le curseur aeion le ces ec affiche la nouvel ftem en inverse. 

kbd ida >$SCD0g lecture directe du clavier (çf article) 
bpi kbd descend sr affiten 
xba cache le caractére lu le temps ce... inc item 
lda >$c010 ... remettre Je clavier 4 D (bit ne ide item 
xba suwoporte pas l'odressage long cm É$S4 arrivé au 4—-àm, on repart au 1er 
dongm bre affinv 
phe stz {tam 
pushword £7 £ inhibition interruption 1 seconde bre affinv 
_IntSouræ 
pla récupére le carsctère lu monte  Jer affitem 
end £5007F masque les bits b15 à b; det 2er 
cop £$18 Esc ? bpl affinv "e ® Ldr ”" La " d-ème— 
bne t2 ide 22 
bre sortieuc ata item 

22 cop £$0D Recurn ? 

| bne t3 affinv writestr inverse 
| bra Mmetajour Jar afliteam 

co £S0A Fléche bas ? writes:r normal 
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brl boucle 


changement de la valeur d'un item en fonction de la flèche (gauche 


CRM MMS SES EUR MMESSSSEUU 


ou droite) utilisée. 


+ cn entrée; À = code ASCII de la flèche (08 ou 515) 
{ item est utilisé: 
: 31 0: bascule marche/arret 
pl gi J: bascule manuel/automatique 
; ei 2: décrémente ou incrémente lea heures 
; si 3: sé ik Li " minutes 
augdiæ tay Y = 8 ou $15 
lda item A := 0.,.4 
bre ad0 A <> 0 
Jar onoff A = 0 (on est sur sonnerie) 
ida #00 
bra adl 
ad0 cp 12 A<27? 
becs heu-cin non À = 2,3 
ad] esia oui -> À :æ At2 (A := O ou À := 2} 
tax X :æ 0,2 
Ida valeurs, x 
eor £1 À := 1- A 
gta valeurs,x véleuræ,x := 1 - valeurs, x 
ta 
ore valeurs,x À ïæ (0 où 2) + fOcu 1 
ore Et A im A+ $ -> A = 4,5,6 eu 7? 
jsr affcpt arret marche manvel automatique 
bra ad3 
beutmin asia -> À := 4 où 6 
tax 
cpy £$515 fléche droite 7? 
bcc diminue nen 
augrænte inc valeurs, x oui 


Ida va'eure., x 


cp maxime-4. x X = 4 ou 6 er 11 faut mexima ou maxi as? 


: valeurs. X < maxima-4, X ? 
bee aa2 oui 
scz valeurs,x non: 24 h -> 0 h et 60 an -> 0 mn 
bra ac2 
diminue dec valeurs. x 
bei ag2 
lde maxima=d, x valeurs,x < 0 -> on passe à 23 h ou 59 m 
dec a 
sta valeurs, x 
ad2 fsr effnum affiche le nonbre contenu dass valaurs,x 
ad3 jsr beepparm ajvstæ les paramètres de beep 
bri boucle 


nantitnstsstsentntttttttt SOUS-DIOQTAMMES *ttrttstaennentees ent e 


: lecture date et heure en bhexa: 
po 





; entrée: ries 
soctle: X := minutes système (lab) 
; 22 heures su é 

H A iæ jour 






readtima long 
pushlcug £0 S l-er moc: jour de 1z semaine 1..7 
# 1 = dimanche 7 = samedi 
£ Z-emse mot: mois jeur 
pushleng £0 S an heure minutes secondes 


_ReedTimañe x fonction $0b03 (Miscellaneous} 
short ln lex 

pla 

pix minutes 

piy heures 

pla 

pla 

Pla 

Pia nul 

pla jour de la semaine 

rts 

ionga on directives d'assemblage: ne gérérant Das 
longi en de code 


; mise en marche de la sonnerie si elle est sur arret (et inversement) 


; avant l'appel de onoff, valeurs n'& pas été modifié: 
4 Si valeurs m O0 -> mettre en marche 
; si valeurs = ] -> arreter 


onoff ida valeurs 
beq becepon 
beepoff pushucrd #5 E interruption 1/4 seconde inhibée pour 
_IntSource restaurer l'ancien vecteur... 
pusbword £SE £ 
pushlongz £0 E ...modifié par beepon 
_$etVecter 
rts 
beepon  jsr beepparm 
pushword £5 £ 
__IntSource 
pushleng £0 £ Plece pour recteur 
pushword £SE FE n° référence timar 1/4 seconde 
_GetVector 
pla 
sta restés+i 





beepparm j57 rescrime 


bprts rts 


pia 

sta restés 

pusknozd £S$SE £ 

pusèlcrg f£beep E notre adresse 

_SetVector 

pusrucrd E4 E timer 1/4 seconde autorisé 
_InfSource 

te 


modifie des valeurs dans beep: 
heure de sonnerie, manuel/automatique, jourmeme 


au retour short (1=m 1=x) 
ldorga off 

longi off 

1ga valeurs+2 
asl 
4s1 
asi 
as 
esi 
aei 
dec 
sta aurosl 

ida valeurs+4 
atz hlimite+i 
dda valeurs+6 
sta mlimite+l 


0: manuel 1: automatique 


œ © © © ED D 


A := $3P: manuel] ou $FF: (automatique/ 
hlimite+l := heures programmées 


mlimite+1 := minutes 


tya y = heures système 

xbz et x = minutes — 

taxa -> À := heures minutes système 
stz jourmene+] 

lcrg natif pur 

sta tem 

id valeurs+é 

xb2 

©ra valeurs:6 -> À i= heures minutes prarammées 
c® te heure programme >= heure systéme ? 
becs Eprcs oui -> Jourmeresl reste égal 4 0 


non -> jousrmere:1 := 1 (jcurmnem+2 n'est 
Pas affecté par cet inc) 


inc jcurnemæe+] 


affichage de presque toutes les chaines: 


= 





==2SR2E;-SS53csss Sum 





==ÉamT=: 





en entrée: 
pour affitem: le contenu de item (0..3) 
pcur affopt: le contenu de À (4..7) 
Qui permettent de calculer le numéro de la chaine À afficher. 


affiten Ida iten 


affopt asi a 


affnux Ta LR 


A := O..$E ipar pss de 2) 

£ey YŸ := 0..5E ad RE 

pea sorneried-16 £ adresse chaine: poids fort 

1ds ads, y lit dens la table adrmsg le poids faæibla 


ga £ 

ida tabnsg,y 

jsr vhtab 

_NriteSering fonction SICOC (Taxe Toois) 


rta 


affiche un nombre < 3 60 sur 2 chiffres décimaux et précédé per 
CRRRNNENDNES SRE SSSS SERRES LCLSENNNMENEEETESSESSESS 
un espace. Si heure en format AM PM, affiche aussi AM ou PM. 
Si le nenbre est inférieur à 10, ajoute un espace en tête 
dé chaine nunstr est modifiés 4 chaque aPs#el. 
en entrée: X = 4 eu 6 (4 Pour les heures, $ pour les minutes) 


daux espaces 
sta numstr+5 à l'etpisceænt de AM ou PM 


léz valeurs,x 


cpx £4 affichage des heures ? 
bne mn non 
dd ape oui -> es mode 24 heures ? 
bne mn Qui 
ldÿy £'MA° non => y :æ "MA' 
cm £$0C A<12? 
bcc matin oui 
idy £'M' non => Y := ‘MP’ 
sbe £50C A im A - 12 
matin sty nonstrs5 ->rumetr+S := 'A' ou 'P', numsetr+6 := 'M' 
mn pa 
ida tabmsg+12,x 
Jsr vhtab 
pla 
lidx £0 À compteur de dizaines 
efnl cap £SA A<10? 
bcc sfn2 oui 
sbc i$2 non -> À := À - 10 
inx ee X:=X +1 
bras efni 
efn2 xba À := unicés 00 
ste ftnstr+2 ceporaire 
txe À :« 00 dizaines 
ora numstr+#2 À :«+ unités dizaines 
ora £$3030 -> À := codes ASCII des unités et dizain. 
cpx £0 Ô disaine 7? 
bne deuxch non -> il Y a deux chiffres 
eer £$0010 -> À := chiffre unités, espece 


deuxch sta nurmetr+2 


lsb da A stocké avant msb -> diz en lar 
writestr numstr 
FES 
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+ positionnement du curseur: 


ç; sesssssssue2= 





# en entrée: À = VTAB HTAB 


vhtab 
4 


sta >$0024 


da £SFC22 
pha 


_FNEntry 
Pla 
pla 
pla 
pla 
rts 


CELELLEZZE EEE) 


routines de traitement des interruptions 


A stocké dans $0024 (banc 00) à l'envers 
msb dans $25 {vtab}) 1sb dans 524 ({htab) 
routine système VTAB 
S place pour P (registre d'état) 

A 


y “ " E E “ 


s e . 
s e P x 

s Lud re Y 

E val À passée à SFC22, sans intéret dci 
ir MOST, Q a e » 
È 

E 


adresse de le routine appelée 
fonction n° 52403 (Miscelleneous) 
récupération dans l'ordre de Y,X},A,P 


trésssssantnn 


+ (appelées en mode émulation, vitesse normale, banc de données = 00) 


+ interruption 1 seconde: 


efftime Jjsr readtime 
native 
8sl a 
tax 
pea did-16 


ide >adrjour-2.x 


ida >cabdate 
Jar vhtab 
_#riteString 
æushlong £dstes2 
_ReadAsciiTime 
nzitestr date 
ide >time 
eer £S$SOGAC 
sta >Cim 
Ada >cabt{imr 
tax 
lde >arpa 
beg am 
inx 
inx 

am txa 
jsr vhtab 


Fichier 
Alarme. 
Macros 


MACRO 

élab _SetVector 
élab Idx £$1003 
js1 $E10000 
MEND 

MACRO 
4lab _GetVector 
élab ldx €$1103 
Js1 $E10000 
MEND 

MACRO 

6lab _IntSource 
6lab 1dx £$2303 
js1 $E10000 
MEND 

MACRO 

&lab _FWEntry 
élab dx £$2403 
jsl $E10000 
MEND 

MACRO 

élab WritesString 
élab ldx £$IC0C 
jsl $E10000 
MEND 

MACRO 

élab str sstring 


élab dc il'1:é&string',c'é&s 


121014 

4e 2..14 

adr haute jour à afficher potr 
_WriceString 

£ssse ot D e 


mx > 


E " 


affiche ie jour 
E buffer eù sera stockée ia date 
fonction $0F03 (Miscellaneous) 


>cime contient un espace ($A0) Qu'il faut 
remplacer par $S0C ut >etines1 contient le 
ler caractère de l'heure & conserver 


quel mode d'affichage des heures ? 
AM EH 
24h -> on décele de 2 carectère à droite 


tring' 

MEND 

MACRO 

£&1ab Short 

&61ä4b ANOP 

sep £+t00110000 
longa off 

longi off 

MEND 

MACRO 

61ab writestr «addr 
&l1ab ANOP 

AIF c:saddr-0,.c 
Zcic &char 
échär amid 6addr,1,1 
AIF "é&char"="£", .a 
pea é<addrü-16 

pea £äadar 

ago .b 

.à 

Zlcic éstr 
éstr ämid saddr, 3,1 :s«addr- 

3 

bra ‘“bésyscent 
‘aésyscent dc il'l1:&str',c'" 


éstr' 
“bésyscent pea ‘assyscntè-1 
6 
pea ‘aésyscnt 
D 
ldx £$1C0C 
jsl $E10000 
MEXIT 
€ 
phy 
pha 


writescr tire 
short 

lda £540 

tab $C032 
clic 

rt1i 


pour autoriser 4 notüveau l'interruption 


on met à 0 le bit b6 de $C032 {SCANINT) 
interruption blen traitée 


+ interruption 1/4 de seconde: 


Æ===---5=55s5.…_22— 


surveiile l'heure et déclenche le beep. 


£n cas d'arset manuel, 


la sennerle continve Jusqu'4 l'intervention 


En cas d'arret automatique, {'interruption n'est pas désactivée et 


# de l'utilisateur et l'interruption est désactivée, 


d l'accèe aulvant, le menu affiche marche‘. 


beep jsr reedtima 
Jourmteme lda £0 


beq blimita 


cpr £0 
bne pasbesp 
cpx £0 
bne pasbeep 
Cxæ 
sce >jouraeæ sl 
hlimite cpy £0 
bcc pasbeep 
mlimite cpæx £0 
bcc pasbeep 
auto ide £$FF' 
bmi loop0 
beq pasbeep 
dec a 
sta >auco+l 
locp0 1da £0 
inc & 
sta >100p0+1 
1sr a 
ler à 
bcc pasbeep 
ox £$540 
loop1 day £550 
loop2 dey 
bre ioap2 
bit SCO030 
dex 
bne loopl 
paskeep sta $CC47 
ele 
rti 
END 
AGO .b 
MEND 
MACRO 
ékab long 
é61ab ANOP 
rep £$#00110000 
longa on 
Jlongi on 
MEND 
MACRO 


61ab _ReadAsciiTime 


élab 1dx £$0F03 
J5s1 5E10000 
MEND 

MACRO 
&lab ReadTimehex 
élab 1idx f$0D03 
js1 $E10000 
MEND 

MACRO 


élab native £mode 


éläb ANOP 
cic 
xce 


AIF c:&mode=0, .a 


émode 

MEXIT 

.a 

Jong 

MEND 

MACRO 
élab _ReadBParam 
&lab 1ldx £$0C03 
51 $E10000 
MEND 

MACRO 


oPérands modifié par beepparm: 
0 si sonnerie le jour meme 
d si . le lendemain 
91 0: on Peut Comparer les heures 
si l: on surveille le pogsage de minuit 


minuit passé -> jourmeme+1 := 0 


opérande modifié par beepparm 


lui aussi: s1 SFF -> ne sera Pas décrém, 
81 SF -> 11 sera déorémenté 

4 chaque passage 

arrivé à 0: arret de la sonnerie 


cpérande modifié à chaque passage 

si Le bic bl de cet opgérande est 4 0: pas 
de beeP, s'11 est à l: beep -> 2 beeps 2 
silences 


l'accés à 5C047 (CLRVBLINT) autorise à 
nouveau l'interruption 





élab pushword £&sysopr 

é6lab ANOP 

AIF c:&sysopr=0, .b 

LCLC 4C 

LCLC &REST 

LCLA €BL 

éC AMID “esÿsopr",1,1 

&BL ASEARCH "&sysopr",®" #”, 
1 

AIF 6BL>0,.a 

6BL SETA L:£sysopr+1 

-a 

&REST AMID "&sysopr"”,2,6BL 
2. 

AIF ("&C"="£") .AND. (S:LON 
GA), .inmnediate 

Îida &sysopr 

pha 

MEXIT 

.b 

pha 

MEXIT 

-immediate 

de Il'S$SF4',I12'&REST' 

MEND 

MACRO 

&lab pushlong &addr,soffse 
(a 

£&1ab ANOP 

LCLC 6C 

LCLC &REST 

éC AMID &adär,1,1 

AÏF "éaC"="f",. immediate 

AIF "&C"="0#, .zeropage 

AIF C:éoffset=0, .nooffsat 

AIF "éoffset"="s",.stack 
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pushword &addr+2,5soffset ldy £&offset 2310:09 27 00 20 OF 06 F4 00 00 F4 A4 00 A2 OC 1C 22 
pushword £&addr,£offset pushword £saadr, y 2320:00 00 El 68 1A 80 E2 68 F4 00 00 F4 A7 00 A2 0C 
MEXIT MEND 2330:1C 22 00 00 El A9 27 16 20 OF 06 F4 00 00 F4 D3 
.nooffset MACRO 2340:00 A2 0C 1C 22 00 00 E1 AO 06 00 5A F4 00 00 B9 
pushword £addr+2 £1ab _WriteChar 2350:20 02 48 B9 04 02 20 OF 06 A2 OC IC 22 00 00 E1 
pushword &addr &lab dx £$180C 2360:7A 88 88 10 E6 A9 03 00 8D 3A 02 20 97 05 CE 3A 
MEXIT js1 $E10000 2370:02 10 F8 AD 3C 02 09 04 00 20 9A 05 AD 3E 02 09 
.inmediate MEND 2380:06 00 20 SA 05 A2 04 00 20 B1 05 A2 06 00 20 B1 
£REST AMID 6äaddr,2,L:6addr MACRO 2390:05 9C 3A 02 F4 00 00 F4 00 00 F4 15 00 A2 03 11 
1 £1ab longm 23A0:22 00 00 El 68 8D 2E 04 68 8D 2B 04 F4 15 00 F4 

dc Il'$F4',12'(&REST)Ü-16 £lab ANOP 23B0:00 00 F4 2A 06 A2 03 10 22 00 00 EI 4C 6A 04 A9 
0 rep £#00100000 23C0:00 00 20 0F 06 F4 06 00 A2 03 23 22 00 00 El E2 

dc Il'$F4',12'&REST" longa on 23D0:20 AF 00 CO 00 10 FA EB AF 10 C0 00 EB C2 20 48 
MEXIT MEND 23E0:F4 07 00 A2 03 23 22 00 00 El 68 29 7F 00 C9 1B 
.sStack MACRO 23F0:00 DO 02 80 33 c9 OD 00 p0 02 80 64 c9 OA 00 DO 
pushword &addr+2,s &lab shortm 2400:03 82 8A 00 c9 0B 00 DO 03 82 95 00 C9 08 00 DO 
puüushword &addr+2,s £lab ANOP 2410:03 82 BB 00 C9 15 00 DO 03 82 B3 00 F4 07 00 A2 
MEXIT sep £#00100000 2420:0C 18 22 00 00 El 80 97 A2 46 02 A0 3E 02 A9 05 
+ zero page longa off 2430:00 54 00 00 AD 3C 02 18 6D 44 02 FO 2F C9 O1 00 
Idy £soffset+2 MEND) 2440:D0 05 20 00 05 80 25 F4 05 00 A2 03 23 22 00 00 
pushword &addr,y 2450:E1 20 60 05 F4 04 00 A2 03 23 22 00 00 El 80 OC 
re a 2460 A? 3C1 02 AD 41802FA9 0700.54 00 O0 HA 15 (00 F4 
Fichier alarme 2470:00 00 F4 00 00 A2 03 10 22 00 00 El AB 6B 8B 4B 
2480:AB AD 44 02 F0 06 20 05 05 9C 44 02 AB 6B 20 97 

Après avoir saisi cette récapitulation sous moniteur, 2490:05 EE 3A 02 AD 3A 02 C9 04 00 DG 13 9C 3A 02 80 
vous la sauvegarderez par : 24A0:0E 20 97 05 CE 3A 02 10 06 A9 03 00 8D 3A 02 F4 
CREATE ALARME, T$B9 24B0:00 00 F4 1C 00 A2 0C 1C 22 00 00 E1 20 97 05 F4 
BSAVE ALARME, A$2000,L3072,T$B9 24C0:00 00 F4 1F 00 A2 OC 1C 22 00 00 El 82 FO FE A8 


24D0:AD 3A 02 DO 08 20 00 05 A9 00 00 80 05 c9 02 00 
2000:06 00 00 00 00 00 00 00 D9 06 00 00 00 OA 04 01 24E0:B0 17 OA AA BD 3C 02 49 01 00 9D 3C 02 8A 1D 3C 
2010:00 00 01 00 00 00 00 00 00 00 00 00 00 00 00 00 24F0:02 09 04 00 20 9A 05 80 26 OA AA CO 15 00 90 10 
2020:00 00 01 00 00 00 00 00 2C 00 40 00 20 20 20 20 2500:FE 3C 02 BD 3C 02 DD 32 02 90 11 9E 3C 02 80 oc 
2030:20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2510:DE 3C 02 10 07 BD 32 02 3A 9D 3C 02 20 BI 05 20 
2040:F2 D9 06 00 00 13 41 6C 61 72 6D 65 20 70 72 6F 2520:60 05 82 9A FE C2 30 F4 00 00 F4 00 00 F4 00 00 
2050:67 72 61 6D 6D 61 62 6C 65 50 02 00 00 39 04 00 2530:F4 00 00 A2 03 OD 22 00 00 El E2 30 68 FA 7A 68 
2060:00 02 OF 18 02 18 OE 2C 18 OE 20 SF 5F 5F 5F 5F 2540:68 68 68 68 60 AD 3C 02 FO 1B F4 05 00 A2 03 23 
2070:5F SF 5F SF SF 5° 5F SF SF SF SE 5F SF SF SF 5F 2550:22 00 00 E1 F4 0E 00 F4 00 00 F4 00 00 A2 03 10 
2080:9F) 55 5F SF SF SF SF SF SF.SF SF SF SF SE SE SF 2560:22 00 00 El 60 20 60 05 F4 05 00 A2 03 2322 00 
2090:5F 20 OF 1B 2C SA 18 0E 20 41 6C 61 72 6D 65 20 2570:00 El F4 00 00 F4 00 00 F4 GE 00 A2 03 11 22 00 
20A0:70 72 6F 67 72 61 6D 6D 61 62 6C 65 20 OF 20 20 2580:00 El 68 8D 16 05 68 898D 13 05 F4 0E 00 F4 00 00 
20B0:20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 18 2590:F4 95 06 A2 03 10 22 00 00 El F4 04 00 A2 03 23 
20C0:5F 27 SA 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 25A0:22 00 00 El 60 20 EO 04 AD 3E 02 OA OA OA OA OA 
20D0:4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 25B0:0A 3A 8D B2 06 AD 40 02 8D AA 06 AD 42 02 8D AE 
20E0:4C 4C 4C 4C 4C 4C 4C 4C 4C 02 5F SA 2B 1C 18 0E 25C0:06 98 EB 8A 9C 99 06 C2 30 8D 4E 02 AD 40 02 EB 
20F0:43 68 6F 69 78 3A OF 1B 1C 48 1C 55 1C 4A 1C 4B 25D0:0D 42 02 CD 4E 02 B0 03 EE 99 06 60 AD 3A 02 0A 
2100:1C 1C 18 0E 41 6E 6E 75 6C 65 72 3A 45 73 63 1C 25E0:A8 F4 00 00 B9 10 02 48 B9 F0 01 20 OF 06 A2 0C 
2110:1C 4F 4B 3A 1C OF 1B 4D 2E 5F 18 0E 20 OF 1B 4C 25F0:1C 22 00 00 E1 60 A9 20 20 8D 98 01 BD 3C 02 EO 
2120:4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 2600:04 00 DO 16 AC 4C 02 DO 11 A0 41 4D C9 0C 00 90 
2130:4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 2610:06 A0 50 4D E9 0C 00 8C 98 01 48 BD FC 01 20 0F 
2140:4C 4C 4C 4C 4C 18 0E 16 5F 5F 5F 9F 5F 5F 5F 5F 2620:06 68 A2 00 00 c9 0A 00 90 06 E9 0A 00 E8 80 F5 
2150:5F SF SF 5F SF SF 5F SF SF 5F SF SF 0F 1B 16 5A 2630:EB 8D 95 01 8A OD 95 01 09 30 30 E0 00 00 D0 03 
DT60:1C J]JC\1C ICLIC. 1C 1C\1C 1@1C' 1C AC 1C 1C IC IC 2640:49 10 00 8D 95 01 F4 00 00 F4 93 01 A2 OC 1C 22 
2170:1C 1C 1C 1C 5F 16 4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 2650:00 00 El 60 8F 24 00 00 A9 22 FC 48 48 48 48 48 
2180:4C 4C 4C 4C 4C 4C 4C 4C 4C 4C 0E 18 09 53 6F 6E 2660:48 48 48 A2 03 24 22 00 00 E1 68 68 68 68 60 20 
2190:6E 65 72 69 65 3A 07 20 61 72 72 65 74 20 07 20 2670:E0 04 18 FB C2 30 OA AA F4 00 00 BF 26 02 00 48 
21A0:6D 61 72 63 68 65 06 41 72 72 65 74 3A OC 20 6D 2680:AF OC 02 00 20 OF 06 A2 0C 1C 22 00 00 El F4 00 
21B0:61 6E 75 65 6C 20 20 20 20 20 0C 20 61 75 74 6F 2690:00 F4 9C 01 A2 03 0F 22 00 00 Ei F4 00 00 F4 9A 
21C0:6D 61 74 69 71 75 65 07 48 65 75 72 65 73 3A 08 26A0:01 A2 OC 1C 22 00 00 E1 AF A4 01 00 49 AC 00 8F 
21D0:4D 69 6E 75 74 65 73 3A 06 20 30 30 20 41 4D 09 26B0:A4 01 00 AF OE 02 00 AA AF 4C 02 00 F0 02 E8 E8 
21E0:20 30 31 2F 30 31 2F 38 37 0B 31 32 3A 30 30 3A 26C0:8A 20 OF 06 F4 00 00 F4 A4 01 A2 OC 1C 22 00 00 
21F0:30 30 20 20 20 19 08 64 69 6D 61 6E 63 68 65 08 26D0:E1 E2 30 A9 40 1C 32 CO 18 6B 20 EC 04 A9 00 FO 
2200:20 20 6C 75 6E 64 69 20 08 20 20 6D 61 72 64 69 26E0:0D C0 00 DO 34 EO0 00 DO 30 8A 89F 99 06 00 CO 00 
2210:20 08 6D 65 72 63 72 65 64 69 08 20 20 6A 65 75 26F0:90 27 EO0 00 90 23 A9 FF 30 07 FO 1D 3A 8F B2 06 
2220:64 69 20 08 76 65 6E 64 72 65 64 69 08 20 73 61 2700:00 A9 00 1A 8F 8D 06 00 4A 4A 90 OD A2 40 AO 50 
2230:6D 65 64 69 20 04 05 04 06 04 08 04 09 OD 05 0D 2710:88 DO FD 2C 30 C0 CA DO F5 8D 47 C0 18 6B F5 04 
2240:05 0A 06 CA 06 O0B 08 OC 09 CA 13 09 12 09 11 OA 2720:00 14 00 50 02 F5 04 00 18 00 39 04 F5 02 00 10 
2250:10 0B 11 0E 12 47 01 61 01 82 01 8A 01 51 01 59 2730:02 47 01 F5 02 00 12 02 61 01 F5 02 00 14 02 82 
2260:01 68 01 75 01 30 01 19 01 19 01 02 01 B1 01 8A 2740:01 F5 02 00 16 02 8A 01 F5 02 00 14 02 51 01 F5 
2270:01 C3 01 CC 01 D5 01 DE 01 E7 01 18 00 3C 00 00 2750:02 00 1A 02 59 01 F5 02 00 1C 02 68 01 F5 02 00 
2280:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 2760:1E 02 75 01 F5 02 00 20 02 30 01 F5 02 00 22 02 
2290:00 00 00 00 00 8B 4B A8 F4 00 00 F4 19 00 A2 03 2770:19 01 F5 02 00 24 02 19 01 F5 02 00 26 02 02 01 
22A0:0C 22 00 00 El A9 00 28 FA F0 03 09 14 00 8F 20 2780:F5 02 00 28 02 BI 01 F5 02 00 2A 02 BA 01 F5 02 
22B0:00 00 A2 44 02 A0 3C 02 A9 07 00 54 00 00 F4 00 2790:00 2C 02 C3 01 F5 02 00 2E 02 CC 01 F5 02 00 30 
22c0:00 F4 35 00 A2 03 0C 22 00 00 E1 68 8D 4C 02 F4 27A0:02 D5 01 F5 02 00 32 02 DE 01 F5 02 00 34 02 E7 
22D0:0C 00 A2 0C 18 22 00 00 E1 A9 00 00 20 OF 06 F4 27B0:01 F5 02 00 6E 02 44 02 F5 02 00 71 02 3C 02 F5 
22E0:00 00 F4 22 00 A2 0C 1C 22 00 00 E1 F4 00 00 F4 27C0:01 F0 77 02 3C 02 F5 01 r0 78 02 44 02 F5 02 00 
22F0:4F 00 A2 0C 1C 22 00 00 Ei F4 00 00 F4 7C 00 A2 27D0:88 02 4C 02 F5 02 00 98 02 OF 06 F5 02 F0 9B 02 
2300:0C 1C 22 00 00 El A9 02 00 48 C9 16 00 BO 18 EB Suite page 24 = 
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Dimitri Geystor 


Vous êtes passé d'AppleWriter à AppleWorks et 
vous regrettez votre WPL ? Si vous avez adopté 
SuperMacroWorks, vous disposez non seulement de 


la souris mais de 
programmables. 


commandes 


automatiques 


Les macro-commandes qui suivent, œuvres d'un 
spécialiste, automatisent votre courrier. Pour les 


Île, lle et IIcs. 


Chose promise, chose due, voici 
la macro-commande d'adressage 
automatique du courrier annoncée 
dans le numéro précédent!. 


Courrier 
automatisé 


Partant d'une Base de données 
qui contient les adresses de vos 
correspondants, cette macro 
exécute, en une seule commande, 
la mise en page d'une lettre : 


« elle crée un fichier Traitement 
de texte ; 

+ elle place votre nom et votre 
adresse en haut à gauche ; 

« elle inscrit l'adresse de votre 
correspondant à l'endroit 
idoine pour une enveloppe à 
fenêtre ; 

* elle ajoute au-dessous la date ; 

« elle place enfin le curseur au 
début du texte à taper. 


Et, si vous avez l'œil rapide, 
vous remarquerez qu'elle en 
profite, mine de rien, pour donner 
au fichier de traitement de texte 
ainsi créé le nom de votre 
correspondant. De sorte que vous 
pouvez à tout moment sauver 
votre lettre sans risquer d'écraser 
la précédente. 


Comme la place sur le Bureau est 
limitée à 12 fichiers, il est 
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commode en outre de disposer 
d'une macro de ‘nettoyage’ qui 
efface tous les fichiers du Bureau, 
en vous donnant néanmoins la 
possibilité d'intervenir en cours 
de macro pour sauver d'abord 
ceux des fichiers que vous n'avez 
pas sauvegardés pendant votre 
travail. C'est la dernière des 
HE du fichier ADRESSAGE, 
-S. 


Le fonctionnement 


Cet ensemble de macros utilise 
plusieurs mémoires. Nous allons 
les passer en revue, et voir 
comment elles sont mises à profit. 


Tout d'abord — à tout seigneur 
tout honneur — la fameuse Macro 
0 ; vous la rencontrerez souvent, 
car c'est vraiment la mémoire à 
tout faire de SuperMacroWorks : 
le chargement et le déchargement 
des autres mémoires transite par 
elle, et de plus elle a quelques 
emplois bien particuliers. 
Prenons, par exemple, la 
première macro de ADRES- 
SAGE, définie par la lettre C : 
c'est elle qui permettra de 
retrouver le fichier ADRESSES. 
DEMO à partir de n'importe quel 
endroit d'Appleworks. 


Le principe est le suivant : la 


commande <menu> , ou G-( au 
clavier, fait deux choses à la fois : 


+ elle enregistre l'identité du 
fichier en cours (c'est-à-dire 
celui qui est à l'écran) ; 

« elle inscrit dans la mémoire de 
la Macro © l'ordre d'aller au 
Menu principal (si vous faites 
é-0 à ce stade, vous vous 
retrouverez en effet dans ce 
Menu). 


De son côté, la commande 
<resume>, ou G-) au clavier, 
inscrit dans la Macro 0 l'ordre de 
revenir au fichier à partir duquel a 
été actionnée la commande 
<menu>. Faites G-) suivi de 
é-0, et vous allez vous retrouver 
au point de départ. Bien. Et si 
l'on fait <menu><resume> à la 
file ? On emmagasine simplement 
dans la Macro 0 l'ordre de revenir 
au fichier actuel. 


Seulement la Macro 0, nous 
allons en avoir besoin pour autre 
chose entretemps ; alors, 
rangeons cet ordre que contient la 
Macro O dans une mémoire 
auxiliaire, la mémoire n° 9 par 
exemple. Cela s'écrit <save0>9. 
Comme ce remue-ménage de 
mémoires ne se voit absolument 
pas à l'écran, ajoutons un petit 
message pour avertir, et la macro 
d-C sera complète. 


Cette opération est à la base de 
tout rappel contrôlé des fichiers 
qui se trouvent sur le Bureau (à 
ne pas confondre avec l'appel des 
fichiers qui se trouvent sur disque 
au moyen de la commande 
<find>). Ce rappel, donc, se fera 
tout simplement avec <load0>9, 
qui remet dans la Macro 0 l'ordre 
stocké dans la Mémoire n°9, suivi 
de €-0. C'est précisément ce que 
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vous pouvez voir au début de la 
macro #-A, celle qui vous envoie 
dans ADRESSES.DEMO choisir 
votre adresse... juste après un 
<menu><resume> déjà familier, 
suivi d'un <swap> qui l'est 
moins. Je vais y revenir dans un 
instant, mais voyons d'abord ce 
que fait la routine principale @-£. 


d-£ commence par l'instruction 
de base <OA-Q><esc>, qui est la 
voie directe — où que l'on se 
trouve dans AppleWorks — pour 
aller au Menu principal. On crée 
un fichier nommé LETTRE, on le 
met en page (c'est le moment 
d'insérer votre nom et votre 
adresse pour l'en-tête), on place 
le curseur à l'endroit où devra 
s'écrire l'adresse du destinataire, 
et l'on se branche sur <SA-A>. 
Donc les instructions <menu> 
<resume> qui suivent préparent la 
Macro 0 à revenir au fichier 
LETTRE ; et comme nous allons 
avoir besoin de cette même Macro 
O0 pour aller au fichier 
ADRESSES.DEMO), nous allons 
provisoirement permuter, au 
moyen de <swap> le contenu 
actuel de la Macro 0 et celui d'une 
mémoire spéciale (voir manuel 
français de SMW, page 26). 
L'ordre de revenir au fichier 
LETTRE étant ainsi provi- 
soirement mis à l'abri, nous 
pouvons charger la Macro 0 avec 
<load0>9 pour aller, en faisant 
<SA-0>, au fichier ADRESSES. 
DEMO. Quand la lecture de 
l'adresse sera terminée, nous 
reviendrons à LETTRE en faisant 
<swap><SA-0>. 








Bibliographie 


Vient de paraître chez 
Sybex la traduction fran- 
çaise de AppleWorks : Tips 
and Techniques, de Robert 
Ericson, qui devrait être le 
livre de chevet de quicon- 
que veut exploiter à fond 
toutes les finesses et res- 
sources d'AppleWorks. 
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Si tout cela vous déconcerte une 
peu, faites quelques exercices 
avec <menu>, <resume»>, 
<swap> et <SA-0> sur les 
fichiers du Bureau ; tout 
s'éclairera très vite, 


Où en étions nous ? Ab oui, nous 
débarquions dans le fichier 
ADRESSES.DEMO ; <OA-I1> 
envoie au début du fichier ; avec 
<zoom><OA-Z> et <insert> 
<OA-A> on s'assure qu'on est 
bien en format fiche et mode 
recouvrement ; ajoutons un petit 
message pour le pauvre humain 
en face de l'écran, un <input> qui 
peninettra de promener le curseur 
avec les flèches ou la souris, et en 
route pour la lecture avec 
<SA-L>. 


La macro -L renvoie en cascade 
à 6-2, 6-3 et É-R. Cette 
dernière enregistre avec des 
<read> une rubrique dans la 
Macro 0 (toujours elle !), et va à 
la ligne ; SA-3 emmagasine ce 
contenu de la Macro 0 dans une 
mémoire auxiliaire numérotée par 
le compteur <var>. Ce compteur 
est mis à zéro au début de SA-L, 
et SA-2 est la boucle 
d'incrémentation de <var> à 
concurrence de 5. Ainsi nous 
remplissons les six mémoires 
auxiliaires numérotées de 0 à 5 
avec six rubriques consécutives 
d'une fiche adresse. Retour à la 
fin de SA-A, où <swap><SA-0> 
renvoie au fichier LETTRE. On 
passe à l'écriture de l'adresse 
avec SA-E. 


Ici, même procédé que pour la 
lecture. On rappelle donc 
successivement avec <load0> 
<var> le contenu des mémoires 
auxiliaires dans la Macro 0, eton 
l'écrit avec SA-0 (c'est dans la 
routine SA-7) avec en plus, dans 
SA-8, un test pour sauter toute 
rubrique vide marquée d'un 
tiret... Quand c'est fait, retour à la 
suite de SA-£ avec l'écriture de la 
date, et enfin <SA-N> pour 
renommer le fichier LETTRE 
avec le premier mot de la première 
rubrique de l'adresse 
(généralement le nom du 
destinataire). 


Et voilà. Après vous être 





À propos de 
Super 
Macro 
Works 


Rappelons la signification de 
OAetSA: 
OA = Open Apple 
= Pomme ouverte 
SA = Solid apple 
= Pomme pleine 
= option (sur le IIGS) 





Un lecteur perspicace, M. Ser- 
giuz Chadzinsky, a relevé que 
dans la macro Compte-Mots 
publiée dans le numéro 34 de 
Ponn's, il manque la mise à zéro 
de la mémoire des milliers. 

Il faut effectivement ajouter 
<save0>4 juste avant <sa-M>, 
dans la première macro (S:). 
Cetteomissionestdue à un ajout 
in extremis … 


familiarisés avec les diverses 
opérations constitutives de cette 
macro complexe vous serez 
mieux armés pour construire — 
tout en vous distrayant — vos 
propres applications personnelles 
au moyen de ce merveilleux 
MECCANO intellectuel qu'est 
SuperMacroWorks. « 


() Pom’s 34, macro-commandes 
AND, OR et Round pour le 
tableur et Compte-Mots pour le 
traitement de textes. 


Un correspondant pose une 
question qui en tourmente 
plusieurs autres : peut-on recopier 
une case valeur, définie par une 
formule dans un tableau, soit 
ailleurs dans le même tableau, soit 
dans un tableau différent, en 
récupérant la valeur et non la 
formule (qui évidemment n'aplus 
aucun sens dans un nouveau 
tableau). 


Réponse : Oui, Super Macro- 
Works vous donne le moyen de le 
faire en une seule macro. Mais... 
réponse dans le prochain numéro. 
D'ici à là, à vos claviers, et bonne 
chance ! 
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Fichier ADRESSES.DEMO 


Fichier Base de données 
AppleWorks 


Ce fichier figure sur la disquette Pom'’s et sert de 
démonstration pour l'utilisation de la macro-commande 
ADRESSAGE. 


Une fiche se présente ainsi : 


NOM & PRENOM: POM.S Editions MEV 
N° et RUE: 12, rue d'Anjou 
LOCALITE: - 

CODE POSTAL: 78000 

VILLE: VERSAILLES 

PAMS I — 


Règles à observer pour la constitution du 
fichier ADRESSES.DEMO 


1 Encasde rubrique vide, mettez un tiret (nécessaire pour le 
bon fonctionnement de la sous-routine 8 de la macro- 
commande ADRESSAGE) 

2 La rubrique nom et prénom ne doit contenir que lettres, 
chiffres, espaces ou points, à l'exclusion de tout autre signe 
(ainsi POMS sera, pour les besoins de la cause : POMS) ; 
sinon, la sous-routine N serait en difficulté (essayez...) 

3 Chaque fiche peut avoir des rubriques supplémentaires 
(téléphone, remarques, etc. qui seront sans influence sur 
l'adressage) 

4  Sien cours de macro, emportés par l'élan de votre souris, 
vous tombez en fin de fichier sur l'annonce fatidique 
“Dépassement... Vouiez-vous vraiment faire cela ? Non, 
Oui”, soyez Normand, ne répondez ni Oui, ni Nor, faites 
Escape 

5 Sélcctionettri sont impossibles encours de macro ; prenez 
les devants, sélectionnez d'abord, lancez la macro ensuite. 


9 
InterPom'’s 
version 2.0 HA 





Des transmissions 
intelligentes entre : 
Apple// de 
et/ou Macintosh ” 
et/ou IBM® 


Pour transférer tous vos fichiers en local 
ou à distance, renseignements, 
documentation : 
1 Pom's {1) 39 51 24 43 
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Pom_Link 3.1 


Pour réaliser un serveur Minitel avec un Apple 
{où un Macintosh, il faut un outil— Pom_Link 
3.1 est un ensemble complet d'instructions 
télématiques qui s'ajoutent à l'Applesoft où au 
MSBasic — Fonctions graphiques évoluées — 
routines de saisie (y comprisnumérique et mode 
‘secret”) contrôlées — détection de sonnerie — 
détection de la déconnexion à tous niveaux — 
contrôle du curseur — messages d'erreur et 
d'alerte — recodage des carattères — contrôle 
des touches de fonctions — interrogation du 
Minitel servi — contrôle de la durée de commu: 
nication — mode téléinformatique — allocation 
de délais de réponse — Gestion des gris etc. — 
Prix 450,00 F (carte Joker 400,00 F) — bon de 
commande page 71 — 











Le Basic télématiqu 
des Apple // 
et Macintosh 


Fichier ADRESSAGE 


Macro-commande pour 
SuperMacroWorks 


Si vous n'avez pas la disquette Pons, saisissez en traitement 
de textes ce fichier (Seule la partie allant de START à END — 
y compris —est active). 


ÉRRRRR RU R RO RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRÉ 


APPLENORKS 1.4 SuperMacroWorks 
ADRESSAGE AUTOMATIQUE 


Sssssmn-s-——————— — 
Grâce aux macros de ce fichier, vous pourrez faire 
un adressage automatique de votre courrier, à 

partir d'un fichier d'adresses en Base de données. 


Les seules opérations préalables sont : 

1 Compiler ce fichier ADRESSAGE avec C-= 

2 Appeler à l'écran le fichier ADRESSES.DEMO, et 
faire £-C pour chaîner. 


Ensuite, faire #-£ : la création de la lettre, 
l'écriture de l'adresse, l'insertion de la date 
sont entièrement automatiques. Pour chaque 
nouvelle adresse il est créé un nouveau 
fichier-lettre différent. On peut répéter #-£ 

à volonté tant qu'il ÿ a de la place sur le Bureau 
(12 fichiers). 


RRÉRÉRRRRR AR RRRRRRRRRRRRRRRRRRRÉRRRÉRÉARRÉARÉARAÉARAARÉÉ 


Dimitri Geystor * Fév. 1988 
START 


C:<ell><menu><resume><savel>9<nsg>'--Chainage 
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enregistré - Faites sa-£ pour exécuter la macro 
d‘adressage --"1! 


Marque le fichier ADRESSES.DEWO pour que la macro 
puisse le retrouver 
£:<all><oa-Q><esc><rtn>3<rtn><rtn>LETTRE<rtn><oa-o 
>mh<Rtn>1<Rtn>mb<Rtn>1<Rtn>md<rtn>0<rtn><Esc>Votre 
nom et prénom<Rtn>Votre adresse<kRtn>Code postal et 
Jocalité<Rtn><Rtn><Rtn><Rtn><oa-O>MG<Rtn>4,5<Rtn>< 
Esc><sa-A><rtn><rtn><rtn><rtn><sa-D><rtn><rtn><oa- 
O>mg<rtn>0<rtn>md<rtn>1l<rtn><esc><rtn><oa-N><oa-y> 
<sa-N><rtn>&nsg>' ---- PRET ! Vous pouvez taper 
votre lettre ...----"'! 

Routine principale 


A:<all><menu><resume><swap><load0>9<sa-0><oa-1><zo 


om><oa-£><insert><oa-A><M sg>'-- Choisissez une 
adresse (curseur début NOM}, puis RETURN pour la 
suite---"'<Input><sa-L><swap><sa-0><sa-E>! 


Envoi au fichier ADRESSES.DEMC 


Sous-routines : 


R:<all1><read><read><read><read><read<read><read>< 
read><read><read><read><read><read><read><read><re 
ad><read><read><read><read><read><read><tread><read 
><read><read><read><read><read><read><read><read>! 


Enregistre une rubrique dans la Macro 0 {35 
caractères max.) 


Li<all><var=>0<sa-2>! ) 
}Lecture 

2:<all1><sa-3><incvar><varnot>5<Rpt>! ide l’a- 
jdresse 


Suite de la page 20 


27E0:22 00 F5 02 00 9E O2 22 00 F5 02 F0 A8 02 4F 00 
27F0:F5 02 00 AB 02 4F 00 F5 02 F0 B5 02 7C 00 F5 02 
2800:00 B8 02 7C 00 F5 02 00 CF 02 OF 06 F5 02 F0 D2 
2810:02 A4 00 F5 02 00 D5 02 A4 00 F5 02 F0 E4 02 A7 
2820:00 F5 02 00 E7 02 A7 00 F5 02 00 F4 02 OF 06 F5 
2830:02 F0, F7 02 D300°Fr5 02 00v*FA 02 D3, 00 F5 102 F0 
2840:08 03 02 O1 F5 02 00 O0B 03 20 02 F5 02 00 OF 03 
2850:04 02 F5 02 00 12 03 OF 06 F5 02 00 24 03 3A 02 
2860:F5 02 00 27 03 97 05 F5 02 00 2A 03 3A 02 F5 02 
2870:00 2F 03 3C 02 F5 02 00 35 03 9A 05 F5 02 00 38 
2880:03 3E 02 F5 02 00 3E 03 9A 05 F5 02 00 44 03 B1 
2890:05 F5 02 00 4A 03 B1 05 F5 02 00 4D 03 3A 02 F5 
28A0:02 00 61 03 2E 04 F5 02 00 65 03 2B 04 F5 02 F0 
28B0:6B 03 2A 06 F5 02 00 6E 03 2A 06 F5 02 00 78 03 
28C0:6A 04 F5 02 00 7E 03 OF 06 F5 02 00 E4 03 46 02 
28D0:F5 02 00 E7 03 3E 02 F5 O1 FO ED 03 3C 02 F5 01 
28E0:F0 EE 03 44 02 F5 02 00 FO 03 3C 02 F5 02 00 F4 
28F0:03 44 02 F5 02 00 FE 03 00 05 F5 02 00 OD 04 60 
2900:05 F5 02 00 1C 04 3C 02 F5 02 00 1F 04 44 02 F5 
2910:01 FO 25 04 3C 02 F5 01 F0 26 04 44 02 F5 02 00 
2920:3D 04 44 02 F5 02 00 42 04 05 05 F5 02 00 45 04 
2930:44 02 F5 02 00 4A 04 97 05 F5 02 00 4D 04 3A 02 
2940:F5 02 00 50 04 3A 02 F5 02 00 58 04 3A 02 F5 02 
2950:00 5D 04 97 05 F5 02 00 60 04 3A 02 F5 02 00 68 
2960:04 3A 02 F5 02 FO 6B 04 1C 00 F5 02 00 6E 04 IC 
2970:00 F5 02 00 78 04 97 O5 F5 02 F0 7B O4 1F 00 F5 
2980:02 00 7E 04 1F 00 F5 02 00 8C 04 3A 02 F5 02 00 
2990:91 04 00 05 F5 02 00 A0 04 3C 02 F5 02 00 A6 04 
29A0:3C 02 F5 02 00 AA 04 3C 02 F5 02 00 BO 04 9A 05 
29B0:F5 02 00 BC 04 3C 02 F5 02 00 BF 04 3C 02 F5 02 
29C0:00 C2 04 32 02 F5 02 00 C7 04 3C 02 F5 02 00 CC 
29D0:04 3C 02 F5 02 00 D1 04 32 02 F5 02 00 D5 04 3C 
29E0:02 02 04 60 05 F5 





































































3: <all1><sa-R><Rtn><savel><var>! } 
E:<ali><insert><oa-A><var=>0<sa-62>! ) 
} 
6:<all><sa-7><incvar><varnot>5<Rpt>! JEcriture 
Jde l'a- 


7:<al1><load0><var><sa-0><Rtn><Up><sa-8>!]dresse 


8:<all><Ifnot>-<Down> ! ) 


D:<all>Le 
<date><back><Del><back><oa-D>i<oa-Left><Rtn><oa-Ri 
ght><oa-Right><Rtn><ic><a head><ahead>! 


Ecrit la date 


N:<all><load0>0<sa-0><back><back><back><ahead><oa- 
v>s 


Renomme le fichier LETTRE d'après le nom relevé 
dans l'adresse 


S:<all><oa-Q0><esc>4<rtn><up><up><up><up><up><up><u 
p><up> <up> <up><up><right><down><right><down><right 
><down><right><down><right><down><right><down><rig 
ht><down><right><down><right><down><right><down><r 
ight><down><right><down>< rtn><msg>'-Vide le 
Bureau, avec sauvegarde manuelle des fichiers 
nouveaux ou changés-”! 


Fait le ménage sur le Bureau. Les fichiers déjà 
sauvegardés sont enlevés d'office, les fichiers 
nouveaux ou changés doivent être sauvegardés 
manuellement. 


29F0:02 00hO1MO5E3C 02 F5 02 00: 21 05 60 05 F5; 02" 00 
2A00:3F 05 16 05 F5 02 00 43 05 13 05 F5 02 FO 49 05 
2A10:95 06 F5 02 00 4C 05 95 06 F5 02 00 61 05 EO C4 
2A20:F5 02 00 64 05 3E 02 F5 02 00 6E 05 B2 06 F5 02 
2A30:00 71 05 40 02 F5 02 00 74 05 AA 06 F5 02 00 77 
2A40:05 42 02 F5 02 00 7A 05 AE 06 F5 02 00 80 05 99 
2A50:06 F5 02 00 85 05 4E 02 F5 02 00 88 05 40 02 F5 
2A60:02 00 8C 05 42 02 F5 02 00 8F 05 4E 02 F5 02 00 
2A70:94 05 99 06 F5 02 00 98 05 3A 02 F5 02 FO 9D 05 
2A80:47 01 F5 02 00 AG 05 10 02 F5 02 00 A4 05 FO 01 
2A90:F5 02 00 A7 05 OF 06 F5 02 00 85 05 98 01 F5 02 
2AA0:00 B8 05 3C 02 F5 02 00 €c0 05 4C 02 F5 02 00 D3 
2AB0:05 98 01 F5 02 00 D7 05 FC 01 F5 02 00 DA 05 0F 
2AC0:06 F5 02 00 ED 05 95 01 F5 02 00 F1 05 95 01 F5 
2AD0:02 00 FF 05 95 01 F5 02 F0 02 06 93 01 F5 02 00 
24E0:05 06 93 01 F5 02 00 2B 06 EO 04 F5 02 F0 34 06 
2AF0:B1l 01 F5 03 00 37 06 26 02 F5 03 00 3C 06 OC 02 
2B00:F5 02 00 40 06 OF 06 F5 02 FO 4A 06 9C 01 F5 02 
2B10:00 4D 06 9C 01 F5 02 F0 57 06 9A 01 F5 02 O0 5A 
2B20:06 9A 01 F5 03 00 64 06 A4 01 F5 03 00 6B 06 A4 
2B30:01 F5 03 00 6F 06 0E 02 F5 03 00 74 06 4C 02 F5 
2B40:02 00 7D 06 OF 06 F5 02 F0 80 06 A4 01 F5 02 00 
2B50:83 06 A4 01 F5 02 00 96 06 EO 04 F5 03 00 A6 06 
2B60:99 06 F5 03 00 B9 06 B2 06 F5 03 00 CO 06 BD 06 
2B70:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
2B80:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
2B90:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
2BA0:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
2BB0:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
2BC0:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
2BD0:00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
2BE0:00 00 00 00 00 00 00 00 O0 00 00 00 00 00 00 00 
2BF0:00 00 00 00 00 00 00 00 O0 00 00 00 00 00 00 00 
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+ ne des grandes forces de ProDOS est de 
+ pouvoir gérer sans problème toutes 
sortes de mémoires de masse : qu'il 
s'agisse de nos bons vieux lecteurs 
5'25, des disques 3'5, d'un disque dur, 
#& d'un disque-mémoire (Ramdisk), de la 

carte Speedisk, et bientôt d'un lecteur de 
‘Compact Disk”, que la carte interface soit de type 
“Smartport” ou “SCS/”’, l'utilisateur n'a jamais affaire 
qu'à des volumes, des catalogues, des sous-catalogues 
et des fichiers. Le programmeur, lui, a affaire à une 
interface en langage machine elle aussi très simple et 
normalisée, et n'a jamais à s'occuper de la gestion 
directe des lecteurs. 


La conséquence bien agréable pour l'utilisateur, c'est l'abondance 
des applications et des mémoires de masse, donc la nécessité de 
moyens simples et rapides pour copier, effacer, formater disques 
et fichiers, passer d'une application à une autre, faire des 
‘backups’ (des doubles). 

J'ai pu constater que beaucoup d'utilisateurs perdent leur temps et 
leur sérénité parce qu'ils se contentent d'utiliser les utilitaires 
remis avec leur machine (Finder, MouseDesk, Utilitaires 
Système). Le présent arücle vise à faire l'étude à peu près 
complète (d'où sa longueur...) des programmes du commerce 
indispensables à l'utilisateur de ProDOS. 


Prenez vos précautions ! 


Commençons par quelques mises en garde indispensables pour 
éviter les désastres (ces désastres, bien entendu, me sont tous 
arrivés : si vous n'y prenez pas garde, ils vous arriveront 
fataiement à vous aussi !). 


Attention à votre ProDOS 


N'utilisez pas n'importe lequel, simplement parce que c'est 
celui-là qui est sur la disquette de l'application que vous utilisez. 
I! est indispensable de vous faire vous-même un disque système 
ProDOS, votre disque de démarage, adapté à votre configurahon, 
contenant le bon ProDOS, vos drivers de disques Ram, vos 
accessoires de bureau, un sélecteur de programmes, un 
gestionnaire de fichiers, etc., et épuré de wut ce qui ne vous est 
pas utile (polices de caractères, AppleTalk, drivers de 
Laser Writer….). C'est à parur du ProDOS de cette disquette que 
vous fancerez vos applications, et non à parür du ProDOS fourni 
sur la disquette de l'application. En fonction de ce que j'ai dit 
ci-dessus eoncernant l'interface pour le programmeur, toute 
application ProDOS doit être compatible avec les nouvelles 
versions de ProDOS. Si elle ne l'est pas, procurez-vous la 
version la plus récente de cette application. S'il n'y a pas de 


Pierre Demblon 


version plus récente. n'utilisez plus cette application : vous 
courez au désasire ! 


Le mot “ProDOS””" renvoie d'une part au ProDOS employé sur 
tous les Apple//, appelé aujourd'hui ProDOS 8, et d'autre part au 
système d'exploitation 16 bits du IIGS, appelé ProDOS 16. Ces 
deux systèmes gèrent les disques de la même façon. La seule 
version de ProDOS 8 qu'il faut utiliser est la version 1.4, datée 
d'avril 87. Toutes les versions antérieures sont affectées de bugs” 
cruels (destruction de la piste 0..), ou de manques et 
d'incompatibilités graves (inhibition des interruptions sur le 
GS, c'est-à-dire plus de tableau de bord, calendrier qui s'arrête au 
31 décembre 1987, difficultés à ressusciter les fichiers 
dévuits..….). 


I! faut quelques années à un système d'exploitation pour être bien 
rodé, c'est inévitable. Pour ProDOS 8, la maturité est atteinte, 
Pour ProDOS 16, ce n'est pas encore le cas : la seule version à 
conseiller est la version 2.0... qui n'est pas encore réalisée par 
Apple. En attendant, il faut se débrouiller et jongler avec les 
diverses versions, en fonction de la version du GS et des 
applications utilisées (mais sachez que les versions trop 
primitives du système ProDOS 16 n'acceptent pas le ProDOS 8 
version 1.4). 


Si vous avez un GS, vous avez déjà le ProDOS 8 version 1.4, 
mais vous ne le savez peut-être pas. Ce qui est appelé “ProDOS" 
sur vos disquettes ‘système’ est seulement un utilitaire de 
chargement du système, le ProDOS 8 se trouve dans le 
sous-catalogue “System”, sous le nom “P8"”. I! suffit de formater 
une disquette, d'y recopier “P8” et de le renommer “ProDOS"” 
pour avoir un disque qui démarre automatiquement avec le bon 
ProDOS 8. Pour ceux qui ont un Apple 8 bits, votre 
concessionnaire doit faire cette manipulation pour vous. S'il ne 
sait pas la faire, dénoncez-le à Apple France et adressez-vous à un 
amy avec un IIGS. 


Attention à vos applications 


Le support sur lequel elles vous sont livrées (disquettes 5°25 ou 
3‘5) est seulement un intermédiaire provisoire pour la 
tœansmission. C'est à vous de recopier les fichiers de cette 
application sur le disque désiré, dans le sous-catalogue désiré, et 
de configurer cette application non seulement pour votre 
imprimante et vos ports, mais pour qu'elle aille chercher et 
sauver ses données là où vous lui direz. Beaucoup d'excellentes 
applications 8 bits, à commencer par AppleWorks, uëlisent la 
méthode du relais-disque (overlay) pour dépasser la limite des 
128K0 : elles gagnent énommément en vitesse si on les installe 
sur un disque Ram. 


Cela implique des exigences précises à adresser à toutes les 
applications ProDOS que vous utilisez : si une application n'est 
pas eonforme à ces exigences, encore une fois, ne l'utilisez pas ! 
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© une application ProDOS ne doit jamars être liée au disque 

sur lequel elle est livrée, elle doit être transportable sur le 
support décidé par vous. Cela exclut bien évidemment la 
protection contre la copie, puisque précisément vous devez copier 
l'application avant de l'utiliser. Maïs cela exclut aussi les 
programmes qui exigent de travailler à partir d'un catalogue ou 
sous-catalogue déterminé, et ne sont pas configurables. En 
revanche cela inclut l'essentiel des bons programmes sous 
ProDOS dont... les disquettes et programmes de Pom's. 


@ une application ProDOS doit toujours avoir une option 

“Quit” qui renvoie au ProDOS, c'est-à-dire en fait à votre 
sélecteur d'applications, on ne doit pas être obligé de redémarrer 
tout. Qui a chargé une seule fois le ProDOS 16 comprendra 
pourquoi... 


® une application ProDOS doit autoriser les interruptions, 
c'est-à-dire l'accès au tableau de bord, et permettre 
l'aller-retour ave vos accessoires de bureau. 


Cette liste peut paraître bien exigeante : maïs je répète que les 
bons programmes sous ProDOS s'y conforment effectivement, 
d'AppleWorks à Publish-It en passant par Graphic Writer pour 
GS et par les applications qui font l'objet du présent article. Et 
sachez que Copy // Plus version 8 permet de faire une version 
‘disque dur”, c'est-à-dire conforme à ces exigences, des quelques 
programmes GS qui ne s’y conforment pas. 


Attention au bloc 2 


Quel que soit le disque que vous utilisez habituellement, il y a 
unbloc du disque qui est toujours lu plusieurs fois, et la plupart 
du temps changé, à chaque accès disque. C'est le bloc 2, le 
premier secteur du catalogue principal. Ce bloc est même lu 
quand vous n'utilisez pas le disque : il suffit que celui-ci soit 
physiquement présent dans un lecteur pour qu'à chaque commande 
On Line de ProDOS (et elles sont fréquentes : combien de fois 
par heure voyez-vous et entendez-vous les lecteurs s'allumer les 
uns après les aures pour un très court instant ?), le bloc 2 soit 
lu. 


La conséquence est inévitable : s'il y a un disque que vous 
utilisez habituellement, ou simplement qui reste en ligne en 
permanence, quelle que soit sa taille ou sa nature, y compris 
disque dur ou disque Ram, ce bloc sera fatalement abimé un jour 
sur ce disque. La question n'est pas de savoir s'il le sera, mais 
quand il le sera. Ïl est impossible, quels que soient la perfection 
du système d'exploitation et la fiabilité du matériel, qu'un même 
bloc du disque soit lu et écrit des dizaines de mil iers de fois sans 
un pépin. Utiliser régulièrement un disque sous ProDOS sans 
aucune précaution conte la desucton du bloc 2, c'est partir 
pour le Paris-Dakar sans roue de secours. 


La question est donc de savoir quelles précautions prendre 
maintenant pour pouvoir se tirer sans trop de mal de ce pépin qui 
arrivera nécessairement un jour. La première réponse, ce sont les 
‘backups’ : avoir systématiquement un double de ce qui est un 
tant soit peu iraportant. Je n'insiste pas sur cette règle d'or, qui 
est le B.A. — BA de l'informatique. 


Mais il y a d'autres réponses, qu'on connaît moins. On peut 
aisément sur un disque ProDOS retrouver un fichier perdu à cause 
de l'effacement du catalogue, mais on ne pourra pas savoir le 
nom, le type du fichier, son adresse éventuelle de chargement, sa 
longueur, tous renseignements indispensables pour rendre 
utilisable le fichier ressuscité qui sont inscrits uniquement dans 
le catalogue ou sous-catalogue. Il n'y a qu'une exception à cela : 
si le fichier est un sous-catalogue. 


Le bloc 2 contient le nom de volume du disque ProDOS, et les 
12 premiers noms et pointeurs de fichiers. En conséquence, tout 
catalogue d'un disque de travail ProDOS devrait commencer par 
12 noms de sous-catalogues : non seulement un fichier qui est 
dans un sous-catalogue ne sera pas atteint par la destruction du 
bloc 2, mais il est extrêmement facile aux utilitaires de 
résurrection des disques abîmés de retrouver le sous-catalogue 
entier sur le disque, y compris son nom. 


Pour la même raison, on a tout intérêt à avoir quelque part dans 
un sous-catalogue du disque un fichier texte où soit capturé le 
catalogue complet du disque, pour pouvoir reconstituer ce 
catalogue le jour où le bloc 2 sera abîmé. Cela est parfaitement 
possible avec le programme INFO.DESK inclus dans Prosel 
(voir ci-dessous). 


Enfin, il est sans doute nécessaire d'avoir un double du bloc 2 
lui-même. La solution que je pratique est la suivante : dans un de 
mes sous-catalogues, j crée un fichier appelé “Bloc.2”, d'un type 
exotique, de longueur 512 : 


CREATE BLOC.2, TIVR.! 

BSAVE BLOC, TIVR, A$800, L512.1 

LOCK BLOC.2.1 

Je lance INFO.DESK de Prosel pour savoir quel bloc ProDOS a 
réservé à ce fichier, qui n'occupe qu'un seul bloc. Puis, avec un 
éditeur de blocs, je recopie le bloc 2 sur le bloc en question. Le 
jour où mon bloc 2 est déwuit, je n'ai plus qu'à recopier ce bloc. 
Cela peut se faire en une seule ligne de programme avec les 
commandes RAMLOAD et RAMSAVE du programme 
UNIRAM (voir ci-dessous). 


Quels outils ? 


De quoi avons-nous besoin exactement pour gérer nos disques 
ProDOS ? 


@ un sélecteur de programmes, c'est ce qui vous permet de 

passer d'une application à une autre sans avoir à faire de 
redémarrage. On peut les classer suivant deux critères : 
j'appellerai sélecteurs ouverts ceux qui, à chaque fois qu'on fait 
appel à eux, cherchent sur tous les disques en ligne les 
programmes qu'il peuvent lancer, et vous affichent ce choix. 
J'appellerai sélecteurs fixes ceux qui contiennent une liste 
d'applications et des chemins d'accès à ces applications, liste que 
vous leur avez préalablement déclarée (et que vous pouvez bien 
entendu changer). 


@ un bon “Filer” et de bons copieurs de disques, qui permettent 

rapidement et aisément de créer, détruire, renommer, copier 
les fichiers, formater et dupliquer les disques. ProDOS fait tout 
Ça très bien, mais il ne comprend que le langage machine. H nous 
faut donc un bon programme d'interface entre lui et nous pour 
réaliser toutes ces opérations en direct. 


® cela ne suffit encore pas : en effet, nous aurons souvent 

besoin d'automatiser le aravail du Filer. Par exemple, quand 
on a un disque Ram de taille suffisante, on gagne un temps fou à 
installer le système ProDOS et les applications les plus 
couramment utilisées sur ce disque Ram, et à lancer le système à 
partir de lui. Mais comme tout cela disparaît quand on éteint la 
machine (sauf pour les heureux propriétaires de la carte 
Speedisk), il faut transférer pas mal de fichiers du disque et créer 
pas mal de sous-catalogues. Il faut pour cela écrire un 
programme, donc utiliser un langage qui serve d'interpréteur au 
système d'exploitation. 


@ nous l'avons vu, il est indispensable de faire des ‘backups’ de 











Pomrs n°35 





tous les disques et programmes que nous utilisons souvent, 
et bien entendu de tout ce qui réside dans un Ramdisk. Mais 
comme nous n'avons pas souvent un deuxième disque dur, un 
deuxième lecteur 3'5, etc. il nous faut des utilitaires qui 
pennettent (puisque ProDOS le permet}, de faire un double du 
disque Ram sur le dur, un double du dur sur des disquettes 3'5, 
etc., et cela en fonction de notre configuration précise, et sans 
perdre trop de temps. Puisque le temps, c'est de l'argent, etmême 
si ProDOS est un système d'exploitation assez rapide, comme 
nous gérons l'espace disque en Méga-octets, tout ce qui pourra 
accélérer le travail sera le bienvenu. 


® quelles que soient nos précautions et nos backups, un jour 

il nous faudra réparer des blocs, des fichiers et des pistes 
endommagés. Cela nous prendra du temps, maïs moins que de 
reconstituer les données perdues. Il nous faut donc aussi prévoir 
les utilitaires d'accès direct au disque, de réparation et de 
reconsäitutions de catalogues et de disques. 


Bien entendu, aucun programme ne peut remplir ces six 
fonctions à la fois, mais la plupart en remplissent plusieurs. 
C'est donc par groupe de programmes, plurêt que par fonctions, 
que je les présenterai. 


ENTER PATHNAME OF NEXT APPLICATION 


Le message ci-dessus est responsable de nombre d'angoisses et de 
crises de nerfs. C'est ce que ProDOS 8 a à nous proposer en 
guise de sélecteur d'applications : Apple a volontairement fait le 
plus dépouillé possible, pour permettre aux développeurs de faire 
des programmes qui se logent dans le ProDOS 8 lui-même, à la 
place de cet infâme message. C'est ainsi que nous avons 
aujourd'hui, sans occuper un octet de plus en mémoire, et la 
plupart du temps sans occuper non plus plus de place sur le 
disque, d'excellents mini-sélecteurs indispensables à tout 
utilisateur de ProDOS 8. 


Celui dont je me sers quotidiennement est le Bird's Better 
Bye (BBB) d'Alan Bird de Beagle Bros. Il est æanquillement 
logé dans le fichier ProDOS, et on ne sait même pas qu'il est là 
tant qu'on ne fait pas appel au Quit (en tapant “Bye” sous Basic 
par exemple). Mais dès qu'on sort d'une application, l'écran 
affiche la liste des fichiers ‘lançables’ et des sous-catalogues du 
disque. On se déplace dans cette liste avec les touches T4, il 
suffit d'appuyer sur ‘Retwm” pour lancer l'applicañon choisie, ou 
retrouver une nouvelle liste si vous avez choisi un 
sous-catalogue. La touche ‘Escape’ fait passer au disque suivant. 
Ce sélecteur est extrêmement rapide et efficace, surtout si vous 
avez un disque principal sur lequel résident la plupart de vos 
applications. C'est celui qu'il vous sera le plus facile de trouver, 
car c'est celui que Pom's diffuse : en prime, Pom'’s vous offre 
d'ailleurs sur la même disquette une application intéressante : 
Super MacroWorks pour AppleWorks. C'est ce programme qu'il 
faut commander page 74 pour avoir le BBB en français, caché 
dans le ProDOS (Version 1.4) de la disquette. 


Un autre sélecteur ouvert intégré au ProDOS 8 est celui réalisé 
par Glen Bredon. Lui aussi est invisible au démarrage et ne se 
manifeste que par un appel au “Quit”. Il fonctionne un peu 
différemment du BBB : il commence par cataloguer tous les 
disques en ligne, et vous propose de choisir votre volume avec 
les TJ et ‘Retum’. Quand ce choix est fait, il affiche les fichiers 
‘lançables’ du catalogue en haut de l'écran, et en bas la liste des 
sous-catalogues contenus dans ce catalogue. Les TV et ‘Return’ 
pennettent de lancer une application, la touche ‘Tab’ perinet la 
navette entre les sous-catalogues et le catalogue principal. Le 
plus intéressant dans ce sélecteur est qu'il dispose d'une 
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commande ‘Pop’ : quand vous êtes dans un sous-catalogue, la 
touche ‘Escape’ vous permet de remonter d'un cran dans la 
hiérarchie des sous-catalogues et de lister les applications et 
sous-catalogues du niveau supérieur. Il est donc particulièrement 
utile à ceux qui ont un disque dur très structuré, avec beaucoup de 
niveaux de sous-catalogues. 


Vous pouvez #ouver ce sélecteur vendu par Roger Wagner 
avec une intéressante application en prime : il s'agit de... Merlin 
8/16 (voir à ce sujet la chronique “Apple // For Ever” de J.Y. 
Bourdin dans Pom's 34). Pour ce sélecteur comme pour le BBB, 
il est parfois gênant de ne pas les avoir en fichier séparé, si vous 
voulez passer de l'un à l'autre ou les mettre dans le futur ProDOS 
8 Version 1.5 ou 2.0. Pour celui de Merlin, il est d'ailleurs 
nécessaire de le sortir de son ProDOS (Version 1.3) pour le 
mettre dans la version 1.4. Voici comment s'y prendre : 


BLOAD/MERLIN/PRODOS, A$2000, TSYS.! 
BSAVE/MON.DISQUE/QUIT, A$5900, L$300.1 
BLOAD/MON.DISQUE/PRODOS, A$2000, TSYS.. 
BLOAD/MON.DISQUE/QUIT, A$5900..1 
BSAVE/MON.DISQUE/PRODOS, A$2000, TSYS.1 


Vous trouverez aussi ce sélecteur (avec sa documentation) dans 
l'indispensable Prosel (voir ci-dessous) sous la forme d'un fichier 
appelé “Select.System”’. 


Je passerai rapidement sur le sélecteur diffusé par Checkmate 
Technology, appelé SQUIRT, qui est lui aussi ouvert, 
s'intègre aussi à ProDOS 8, mas se présente en fichier sur 
disque : je n'aime pas la formule du choix avec des lettres 
A/B/C/D etc. Son avantage est son prix : si vous avez la carte 
Multiram ou le programme Proterm de Checkmate, vous 
l'avez déjà. Sinon, il est diffusé en ‘Shareware’ : vous l'obtenez 
pour $3.50 du Big Red Computer Club, ou gratuitement 
d'un de vos amis, et s'il vous plaît, vous envoyez $7.50 à 
l'éditeur pour avoir le droit de l'utiliser. Pour l'intégrer 
définitivement à voæe ProDOS 8, faites la même chose que 
ci-dessus, sauf pour le début. Tapez : 

BLOAD SQUIRTSYSTEM, A$5700, TSYS.: 


le reste comme ci-dessus. 


Pour les techniciens : vous avez déjà compris qu'il y a à 
l'intérieur même de ProDOS 8 trois pages réservées au code du 
QUIT dans lesquelles on peut mettre son propre code. Je vous 
recommande l'article de Sandy Mossberg dans Nibble de 
septembre 87, qui désassemble le code Quit du ProDOS, et offre 
un source Merlin pour faire vous-même votre Quit personnalisé. 


Si vous voulez démarrer directement sur ces sélecteurs intégrés à 

ProDOS sans passer par BasicSystem et “Bye”, il suffit de 

mettre sur le disque, comme premier fichier portant le nom 

XXX.SYSTEM, un fichier BYE.SYSTEM qui se contente de 

faire un appel au Quit du ProDOS (plus exactement, mettez-le en 

second, juste après SETUP.SYSTEM : voir “Apple // For Ever” 

dans ce numéro). Voici comment créer ce fichier : 

CREATE BYESYSTEM, TSYS.1 

CALL-151.1 

2000: 20 00 BF 65 06 20 04 00 00 00 00 00 00 00 DO 00 
00 00 00.1 

BSAVE BYE.SYSTEM, A$2000, L$13, TSYS.i 


Ceux qui font beaucoup : 
MOUSEFILER et RUNRUN 


Mousefiler, d'Éric Lapuyade ne doit pas, parce qu'il est 
diffusé par Froggy Software, être pris pour un jeu : s'il peut 
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parfois sembler curieux de se déplacer avec la souris dans un 
éditeur de blocs, il reconnait aussi le clavier, marche avec les 
$G. C'est un très bon sélecteur fixe, doublé d'un Filer très 
honnête et d'un éditeur de blocs. Il exécute la plupart des 
fonctions disque du ProDOS 8, et est agréable à utiliser. 


RunRun, de Pinpoint Publishing, c'est le Finder pour //e 
et //c. Sélecteur fixe doté d'une interface très agréable (fenêtres 
réglables), il peut cataloguer les disques, lancer les applications 8 
bits. Il est très aisé d'ajouter ou ôter ure application de la liste. 
Son principal intérêt est de permettre de lancer les accessoires 
Pinpoint comme accessoires de RunRun, sans passer par 
Pinpout ni AppleWorks. Pour un //e ou un //c, c'estle moyen 
de rivaliser avec le IIGS. 

Une remarque tout de suite : n'achetez surtout pas directement 
RunRun. Pour le même prix, achetez l'excellent Pinpolnt 
Toolklt. Vous aurez à la fois RunRun, Pinpoint (pas les 
accessoires pour AppleWorks, mais Pinpoint), tout un paquet 
d'accessoires inédits et très précieux pour Pinpoint (calculette 
hexadécimale par exemple), tout ce qu'il faut pour mettre 
Pinpoint dans toutes les applications possibles, et surtout la 
documentation, les outils et les sources nécessaires pour faire 
vous-même vos accessoires Pinpoint, en assembleur, en Kyan 
Pascal ou en Micol Basic. Il est bien rare de voir un éditeur de 
programmes révéler tous ses secrets et vous fournir ses sources : 
bravo Pinpo ut ! 

Une seconde remarque : les accessoires Pinpoint sont 
concurrencés, sur HGS, par les accessoires IIGS. La combinaison 
des applications Time Out de Beagle pour AppleWorks et des 
accessoires du GS m'y semble bien plus intéressante. 


Enfin, si vous aimez l'interface AppleWoïks (ou que vous en 
avez simplement l'habitude), le logiciel Interface de Star 
Development vous offre un sélecteur fixe avec une calculette 
et des fonctions de copies de fichiers qui vous fera croire que vous 
n'avez pas quitté AppleWorks. 


Celui qui fait tout : 
PROSEL 


Terminons par le meilleur, l'indispensable, celui que tout le 
monde doit avoir quelle que soit sa configuration : il s'agit de 
Prosel, réalisé et vendu directement par Glen Bredon (oui, 
l'auteur de Merlin). Au dépant, c'est une suite d'utilitaires réalisés 
par lui pour gérer son disque dur Sider. Dans l'état actuel des 
choses, c'est à mon avis le meilleur programme de gestion des 
mémoires de masse qui existe sur tout ordinateur individuel. Ce 
progranune est une suite d'utilitaires impressiomnante, qui permet 
de faire tout ce qu'il est possible de faire sur tout disque ProDOS 
et sur tout Apple //. 


Le sélecteur de programmes lui-même, qui donne son nom à 
l'ensemble, est impeccable : il permet (dansles demières versions 
de Prosel) de lancer aussi bien les applications ProDOS 8 que 
ProDOS 16, de lancer un fichier Applesoft, de lancer un fichier 
DOS 3.3, d'éditer la liste d'applications sans sortir du sélecteur ; 
il marche avec la souris comme avec le clavier, fonc#ionne en 
160 colonnes avec la carte Ultraterm, il permet aussi de lancer les 
accessoires Pinpoint, il trouve et corrige les ‘bugs’ de vos 
Ramdisks, bref, c'est indiscutablement le meilleur. 

Mon stock de superlatifs étant épuisé, je ne mettrai pas de 
qualificatifs aux différents utilitaires que Prosel nous offre en 
plus du sélecteur. Ils sont tous indispensables, je me contenterai 
d'en faire la liste. 


— Copy copie des volumes entiers, y compris par exemple un 
disque 800Ko sur un disque Ram ! Méga; 

— Block Warden est un excellent éditeur de blocs très 
avancé ; 

— Find File trouve un chier en cherchant lui-même dans les 
sous-catalogues, et vous lit ce fichier ; 

— Mr Fixlt répare les catalogues détruits ; 

— Info Desk vous épluche les catalogues et l'occupation d'un 
disque sur écran, sur imprimante ou dans un fichier texte ; 

— Backup et Restore permettent la copie et la restauration 
rapides de volumes ProDOS ; 

— Beach Comber réorganise les fichiers sur votre disque de 
travail pour qu'ils y soient mieux rangés (AppleWorks par 
exemple, qui sauve ses fichiers en conservant l'ancienne 
version pour ne la détruire que quand la nouvelle est sur le 
disque, par mesure de sécurité, aboutit à disperser les fichiers 
sur la disquette, ce qui allonge les temps de chargement) ; 

— Et il y a bien d’autres utilitaires dont je vous laisse la 
surprise... 


The Desktop Manager : 
des accessoires pour IIGs 


Un accessoire de bureau est un progcamme auquel vous avez 
accès en permanence à l'intérieur même des applications que vous 
utilisez : le IIGS se charge précisément de suspendre l'application 
en cours, permettre le travail de l'accessoire, puis relancer 
l'application au point où elle avart été suspendue. Les accessoires 
sont l'une des raisons majeures justifiant l'achat d'un UGS, et 
périment aussi bien les anciens accessoires type Pinpoint que 
certains des accessoires Time Out pour AppleWorks. Avoir un 
Filer en accessoire permet de faire toutes vos opérations sur 
disques sans quitter l'application en cours. Il faut bien entendu 
avo ‘1rchargé vos accessoires au départ: ils doivent être sur votre 
disque ProDOS de démarage. 


Connaissez-vous la société On Three ? Si oui, c'est que vous 
êtes le lecteur de Pom's qui a un Apple ///, car cette société est 
l'émanation d'un groupe d'utilisateurs de cette machine, d'où son 
nom. Mais il se trouve que le IIGS a des points communs avec 
l'Apple ///, et que cette société est dirigée par un des plus grands 
connaisseurs de l'Apple : Sean Nolan. Cest pourquoi, après le 
succès de l'excellent Graphics Manager, elle peut lancer une série 
wès prometteuse pour le IIGS, appelée TDM, The Desktop 
Manager. Dans le programme de base, vous avez toutes les 
facilités pour installer vos accessoires de bureau, le noyau de 
base, plus 10 accessoires, dont certains (Printer Manager, 
Accessory Manager, Device Configuration, Clipboard Tools) 
sont indispensables. Maïs la série continue avec The Disk 
Manager, qui vous permet de faire tous les travaux de gestion 
courante des fichiers et des disques, et le Super Accessorles 
#1, qui contient entre autres un éditeur de blocs, un utilitaire 
pour lister les fichiers, etc. 


Attention : ces programmes étant issus des excellents 
accessoires qu'On Three avait réalisés pour l'Apple ///, ce ne sont 
ni des NDA ni des CDA, mais une nouvelle race indépendante, 
dont l'interface est en texte et de type AppleWorks. Si vous 
exigez la souris et les fenêwes réglables, ils ne sont pas pour 
vous. Mais si c'est la puissance et la rapidité qui vous attirent, 
alors ils sont bien au-dessus de beaucoup d'accessoires-jouets qui 
circulent sur le IIGS. 


Le seul problème avec tous ces accessoires, c'est que vous allez 
en considérer la moitié au moins comme indispensables (il y a 


— Cat Doctor est un Filer complet et efficace ; aussi un Communications Manager...) 11 va vous falloir de 
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la mémoire... d'autant que le plus précieux, c'est sans aucun 
doute ie TDM TOOLKIT qui vous montre comment faire 
vous-mêmes vos accessoires, et inclut les sources, les macros, et 
les exemples nécessaires en assembleur. Prosel, le Desktop 
Manager et le TDM Toolkit, cet ensemble est une raison 
suffisante pour acheter un GS. 


L'indispensable COPY // PLUS 


Il existe une application 8 bits, donc qui tourme sur tous les 
Apple //, qui fait vite et bien, en un seul programsme, tout ce 
qu'on peut attendre d'un Filer. Je m'en sers tous les jours. NN 
s'agit du “Filer” de Copy // Plus de Centrat Point 
Software, appelé “Unl System” (je parle ici de la version la 
plus récente de ce programme qui soit en ma possession, la 
version 8.2). D'abord, ce programme copie les fichiers 
indifféremment en DOS 3.3 ou en ProDOS, en les convertissant 
automatiquement, il formate et copie les disquettes en DOS ou 
en ProDOS, à votre choix. Ni le Finder ni Prose] ne font cela. Il 
gère parfaitement les sous-catalogues, il copie en une seule passe 
un disque 3'$ si vous avez 800Ko de Ram libres. On le 
commande avec les TL et ‘Retum', ce qui peut sembler 
archaïque, mais est en fait et de très loin la formule la plus 
rapide. 


Je ne passe jamais une heure sur ma machine sans me servir de 
ce programme : ses qualités de rapidité et de fiabilité sont 
exemplaires. On peut certes encore expiimer quelques regrets (les 
catalogues ne sont pas assez complets, il n'a pas de macros, il 
permet seulement d'alphabétiser un catalogue, mais pas d'y 
déplacer les ficluers à sa guise,...), mais il faut bien laisser 
quelque chose à ajouter pour les versions suivantes : dans son 
état actuel, il est absolument indispensable à tous les utilisateurs 
d'Apple //. 

D'autant que pour le même prix, vous aurez aussi deux autres 
copieurs physiques (Nibble-Copiers), pour disquettes 5'25 et 3'5. 
Non seulement vous pouvez désormais copier physiquement les 
disquettes Mac sur le IIGS, mais il se charge automatiquement de 
mettre au standard ProDOS en les déprotégeant les quelques 
programmes IIGS sous ProDOS 16 qui étaient protégés. Par 
ailleurs ces copieurs incluent des utilitaires de réglage des lecteurs 
et d'édition de blocs et de pistes indispensables pour réparer les 
disques abîmés. 


DISKCOPY A: B: *.* 


Si le sous-titre ci-dessus ne vous dit rien, ré jouissez-vous : vous 
êtes un pur. Mais dans le monde de l'informatique, il y a aussi 
les “prisonniers du boulot” dont parle la chanson, qui n'ont pas le 
choix de leur machine, et travaillent sous des systèmes 
d'exploitation appelés Unix ou MS/DOS dont ils finissent par 
prendre tellement l'habitude qu'ils souhaitent les retrouver sur 
leur Apple. 

C'est ainsi que s'expliquent nombre de progranunes interpréteurs, 
de langages chargés de traduire ProDOS en instructions que vous 
pouvez frapper au clavier, ou regrouper en programmes, ce que, 
dans un autre univers, on appelle des “fichiers-batch”. Sauf si 
vous êtes vous-même l'un de ces prisonniers, vous ne verrez 
guère dans ces programmes qu'un jargon incormu pour faire des 
opérations disques banales. 


Mentionnons-les cependant. KIX, de Kyan Software (ceux 
qui diffusent le très bon Kyan Pascal), vous permet par exemple 
de ne plus taper "CATALOG", mas “LS.” et de ne plus écrire 
“RENAME /DISK.A, /DISK.B”, mais “MVV DISK.B 
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DISK.A”. Éronnant, non ? Surtout quand on sait que vous 
pouvez l'installer dans AppleWorks. Si Kix imite Unix, tout 
comme ECP (Extended Command Processor} de Living 
Legend Software, Command.Com de Pinpoint 
Publishing vous offre, lui, carrément la ligne de commande, et 
même le caractère d'appel (>) du MS/DOS. Arrêtons là. 


Je n'inclura pas dans cette liste le “shell” (ou “environnement de 
développement”) d'APW/ORCA pour IGS, diffusé er France 
par Prim'vert-DDA. D'abord parce qu'il ne se contente pas de 
singer d'autres systèmes d'exploitation, mais donne réellement 
des possibilités nouvelles, ne serait-ce que le moyen de faire 
soi-même ses commandes (d'ailleurs les 12 utilitaires 
supplémentaires rassemblés sous le nom d'ORCA/M Utility 
#1 et diffusés par Byteworks incluent les sources en 
assembleur). C'est réellement un outil de travail pour les 
programmeurs. Mais en-dessous de 10 Mégas d'espace disque et 
de 2 Mégas de mémoire en ligne, il n'est pas question d'utiliser 
réellement APW, qui n'a d'ailleurs jamais prétendu être destiné 
aux utilisateurs : c'est l'Apple Programmer's Workshop. 


10 PRINT CHR$(4);"COPY/DISK.A/STARTUP, 
IRAM/STARTUP" 


La ligne ci-dessus doit vous paraitre un peu plus familière que le 
sous-titre précédent. Elle nous rappelle que le meilleur 
interpréteur pour ProDOS, nous l'avons tous déjà : il s'appelle 
Baslc.System. Les “fichiers-batch”, cela existe depuis des 
années sur Apple // sous la fonne de programmes Basic, tout 
simplement. C'est avec un progranune Basic de 10 lignes que je 
remplis mon disque Ram très rapidement de 400Ko de 
programmes et applications diverses quand j'allume ma machine. 


Évidemment, si vous recopiez le sous-titre ci-dessus, votre Apple 
va vous dire “SYNIAX ERROR” : c'est que vous avez oublié 
cette possibilité extrêmement précieuse de Basic.System de 
ra jouter des commandes à partir du disque et que vousn'avez pas 
ajouté la commande Copy de Pom's 32. Depuis que ProDOS 
existe, un grand nombre de commandes, la plupart compat bles 
entre elles, ont été publiées, dont beaucoup sont précisément 
orientées sur la gestion des disques. 


La première source de ces commandes supplémentaires, vous 
l'avez entre les mains : c'est la revue Pom's. Voici ci-dessous 
une liste des commandes Basic.System publiées dans Pom's 


jusqu'à ce jour : 
INIT Pom's20 formatage disquette 525 
TDUMP Pom's20 affichage de fichierstexte 
DATHEUR Pom's24 affichage de la date et l'heure 
SHOW Pom'’s28  émulation de la commande 
‘Mon’ du DOS 3.3 
INDEX Pom's29 recherche de blocs index 
RBLOC Pom's 29 lecture d'un bloc 
WBLOC Pom's29 écriture d'un bloc 
KRUPTOS Pom's29 cryptage de fichiers 
COPY Pom's32 copie de fichiers 
XCAT Pom’s32 catalogue complet (y 
compris dossiers) 
ONLINE Pom'’s 33 liste des volumes ProDOS 


Si Pom's ne vous suffit pas, utilisez PROCOMMAND - 
The Commander de Gien Bredon (eh oui, encore lui), qui 
vous offre non seulement tout un lot de commandes Basic, mais 
aussi tout le nécessaire pour programmer en Applesoft sous 
ProDOS et gérer sans problème la double-haute résolution à 
partir de l'Applesoît. L'Apple Coop vend cet excellent 
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ensemble pour un prix détisoire. 

Les frères Beagle et Randy Brandt nous offrent également 18 
commandes extrêmement intéressantes dans Blg-U. Certaines ne 
quittent jamais mon Basic.System. 


Si nous nous limitons strictement à la gestion des disques sous 
ProDOS, il faut absolument men#onner un programme 
indispensable que personne ne connaît : il s'agit d'UNIRAM, 
écrit et diffusé par Steven Humpage. J'ai acheté ce programme 
au départ pour une raison simple : c'est le seul à faire un 
Ramdisque ProDOS pour les cartes d'extension mémoire type 
Saturn ou Legend (les caites ancienne mode qui font du ‘bank 
switching’ de cartes langage jusqu'à 1 Méga). Mais j'ai eu la fort 
agréable surprise d'y découvrir aussi un Ramdisque sous DOS et 
un ensemble de commandes Basic extrêmement précieuses (je ne 
parle ici que des commandes orientées disques, mais il y en a 
d'autres). 


La commande PART permet de segmenter un fichier pour 
sauver par exemple en deux morceaux sur disque 5'25 un fichier 
de 300 blocs, la commande ADD permettant l'opération inverse 
(fusion de deux fichiers). La commande MOUNT permet de 
recopier l'intégralité d'un disque ProDOS sur un autre de taille au 
moins égale en recopiant seulement les blocs utilisés, elle fait la 
même chose que Diversi Copy (sauf le formatage des disques), 
mais en restant sous ProDOS et sous Basic. Les deux plus 
précieuses sont à mon avis les commandes RAMSAVE et 
RAMLOAD. La première permet de sauver dans un fichier 
ProDOS les blocs que vous voulez d'un disque déterminé. La 
seconde permet de restaurer ces blocs sur le disque à partir du 
fichier. L'habitde que j'ai prise de sauver dans un sous.catalogue 
avec ces deux commandes la piste Ô de mes disques de travail m'a 
plusieurs fois ‘sauvé la vie’. 


Dans toutes ces commandes, il y en a une que je cherche 
toujours : on sait que ProDOS ne disposera d'une commande 
“Fonnat” universelle, permettant de formater tout disque 
ProDOS, qu'à pattir de la (future...) version 2.0 du ProDOS 16. 
On peut donc s'étonner de voir que seul Pom’s a commencé à 
combler ce manque par une commande INIT (Pom’s N° 20) pour 
les disques 5'25. Mais on ne dispose toujours pas d'une 
commande “Format” universelle : la chose est d'aatant plus 
étonnante qu'Apple vend aux développeurs le source d'un 
formateur universel. Qui va se décider à la faire ? 


DIVERSI-COPY, DIVERSI-CACHE 
et les autres 


Le “cache” est une méthode pour accélérer les accès disques en 
‘cachant’ dans un coin inutilisé de la mémoire des données 
fréquemment lues ou utilisées, pour les ressortir instantanément 
en évitant l'accès disque demandé. Le cache a été un des thèmes 
débattus enwe développeurs à la fête de l'Apple // de San 
Francisco, et il semble bien que le IIGS inclura dans l'avenir des 
caches non seulement disque, mais mémoire (en gros, il est plus 
rapide de stocker vos fenêtres au grenier et de les redescendre 
quand vous en avez besoin, que de les détruire pour les 
reconswuire ensuite à chaque fois pièce par pièce). 


Pom's 34 (page 66) a dé jà recommandé aux utilisateurs de IIGS 
l'ensemble d'utilitaires de Bill Basham diffusé en ‘Shareware’. 
Dlversl-Copy est le copieur 3'5 le plus rapide sur tout Apple 
/!, et Dlversl-Cache accélère considérablement les accès 
disques sur UGS avec lecteur Apple 3'5. 


On sait moins que la carte mémoire GS Ram d'Applied 
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Engineering, diffusée en France par Bréjoux, est 
accompagnée d'un utilitaire de cache-mémoire, tout comme la 
carte Rampack 4 GS d'Orange Micro. Et que la carte AST 
SPRINTDISK, qu'on peut trouver à des prix de braderie (voir 
Pom's 34 page 64), est non seulement une carte d'extension 
mémoire type Apple pour tous les Apple //, mais fait aussi du 
cache. 


Pour lire et réparer les disques 


Lire les disques directement (blocs et même pistes brutes), vous 
devrez le faire un jour pour réparer les disques abîmés. Prosel et 
les deux bltcoplers (525 et 3'5) de Copy // Plus font 
l'essentiel des tâches d'édition des blocs. Qui veut un éditeur de 
blocs pratique et peu encombrant peut choisir Diskworks, 
diffusé en Shareware par Living Legend Software. 


Prosel dispose en plus d'un excellent utilitaire de récupération 
des fichiers détruits et des catalogues effacés, qui récupère en 
particulier automatiquement les sous-catalogues. Si vous avez 
bien organisé votre disque, c'est l'arme absolue contre l'usure du 
bloc 2. 


Un seul programme rajoute des fonctions nouvelles - et 

indispensables - qui ne sont pas toutes dans Prosel : il s'agit de 

Bag Of Tricks // de Quality Software, excellent utilitaire 

de récupération des disques endommagés en ProDOS, DOS 3.3, 

DOS 322 (1), CP/M et Pascal. II se compose de quatre modules : 

— Trax édite les pistes brutes sur les disques 525 es Permet à 
ceux qui s'y connaissent de cpérer les formatages bizarres et 
les erreurs ; 

— Inlt permet de reformater individuellement une piste d'un 
disque 5°25 en conservant les informations lisibles, donc de 
récupérer l'essentiel d'un fichier quand il n'a que quelques 
blocs endommagés ; 

— Zap vous pennet ensuite de lire et changer les blocs et 
secteurs, avec d'excellentes macro-commandes qui en font un 
véritable langage d'édition de blocs ; 

— Fixcat permet de récupérer les catalogues détruits en DOS et 
ProDOS et de ressusciter des fichiers totalement disparus du 
catalogue. Ce demier programme à lui seul peut vous éviter 
de terribles ennuis. Un indispensable. 


Que choisir ? 


Pour ne pas “noyer” le lecteur, je conclurai par une sorte de 

classement des programunes évoqués en deux catégories : 

+ les indispensables tout d'abord : Prosel, Copy // Plus, Bag of 
Tricks //, les utilitaires Diversi, le Bird's Better Bye, Big U, 
Uniram, et. la collecu'on de Pom's ! Pour les développeurs 
sur IIGS, rajoutez encore APW/ORCA ; 

+ les utiles ensuite, ceux qui apportent un confort 
supplémentaire mais ne sont pas absolument indispensables 
si vous avez les premiers : The Desktop Manager avec le 
TDM Toolkit pour GS, Runrun pour //e - //c, ProCommand, 
Diskworks, Mousefiler. 


Avec cette batterie d'utilitaires, vous serez impeccablement aimé 
pour la gestion de vos disques ProDOS. Mais n'oubliez jamais 
que si tous ces bons programmes sont possibles, c'est parce 
qu'ils prennent appui sur l'excellence d'un auère, dont j'espère 
vous avoir prouvé la force : ProDOS, d'Apple Computer. 


Où trouver les produits cités ici ? ...page 33 — 
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Vincent er Bernard IOMENO 


Programme Converter.Pas 
Source TML. Pascal 


('ommnmmmemmmammmammmmmemmanmmmmneneseerememens een mm mm mm mmæm N) 
{#---  CALCULATRICE HEXADECITMALE <==> BINAIRE <==> DECIMALE pour APPLE II CS 1) 
(* New DeskAccessory par Vincent et Bernard TOMENO ( sous TML PASCAL ,fevrier 88 )*}) 


ffememenenpemmmesesces exe D 7 GES 0 LT A Lu em mm À} 


{*$DeskAcc -1 -1 Converter"*) (*$LongGlobals+*) 


PROGRA Converter: 
USES QDIntf,GSIntf,M{soTools,ConsoleIO; 


VAR myWindOpen: Boolesn: 
myWind: NewW1indowParamBik ; 
myNindtr: WindowPtr; 
touches: Array{0..20) of record 
code: Char; 
rs Rect: 
end; 
affichage: string{16]; 
CurrentType . integer: 
firstCiiok :  boolean: 
(im. 2 QE 20 0 GE 20 Ou 0 00 EE CES AE 2 re ed cm AO A AU EC CC 2 CAN OU US GS GE HG 1 © EE =; 
CE Routines specifiques du Desk Accessory -------— +) 
(tm. mana nmnmenmmnmmmmmr=remmmm med ess— manne mem *) 
Procedure resultat; (* ---Routine des caicuis et des conversions == +] 


var 1,j,A,B,C,D: integer: 
nbr,nbraux : real: 


r2 s rect: 
affichagez : string{i6l; 
begin 

affichage? :+ affichage; 

if Currestlyge = 17 then begin {* on entre un chiffre binaire *) 
for i :- 1 to 16-length(æffichageZ2) do affichage? := concat('0'.affichage2) : 
A :- 0 
if afflchage2{1}] = ‘l' then À := 8; 
if affichage2{2] = ‘l' then À := ÀÂ#4; 
if affichage213] = ‘l' then À := A+2 
1F afflchage2[4}] = ‘l' then À 


id . 
ee. : CONVERTER 


if affichage2{5] = ‘1! then B := 8; 

4f affichage2{6] = ‘l' then B := B$4; 

1£ af£ichage2{7] = ‘l' then B := B42; FONCTIONNE 
Âf affichage2{8} = ‘l' then B :- B+l: 

C := 0: SOUS 


if affichage2{[9} = ‘l' then C :- 8: 
££ afFichage2[10) = '1' then C := C+4; ProDOS 16 


if affichage2{11} = ‘"l' then C := C+2; 











if affichage2112} = ‘1! then C := Csl; SUR LES 
D := 0: 
if affichage2[13} = 'l' then D := 8: Apple IIGs. 
if afflchage2[14] = "1' then D := D+4 
if afflchage2(15] = ‘l' then D := D+2 
if affichage2{16] = ‘l' then D := D+1; 
nbr :- A+4096+B*2564C*16+D: 
end 
else Îf Currersitlype = 16 then begin {* on entre un chiffre HEXA *) 


For i :#7 length(afflchage2}+1 to 4 do 
affichage2 := concat("0',afflchage2) ; 

if affichage2{1} in ["0'.."9"] then À :- ord(affichage2{1])-48 
else À := ordfaffichage2{1j)-55: 

1F affichage?{2] {n ['0*.,'9'] then B := ord(affichage2{2})-48 
eise B := ord(affichage2[2})-55; 

ÎF affichage2[3} 1n ['0'..‘9"}] then C :- ordlaffichage21[3])-48 
else C :- ord{(affichege2{3])-55; 

if affichage2[4] in ([‘0"..9*} then D := ordtaffichage2[4i)-48 
else D := ordiaffichage2{4])-55: 
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erteT 


Dans le menu 6, sur le 
bureau électronique (voir 
la photo de couverture), 
avec toute application GS, 
voici un nouvel accessoire 
de bureau écrit en TML 
Pascal. 


Une des tâches fréquentes (mais 
néanmoins ardue !) du programmeur 
est de faire des conversions : 

Décimal < Hexadécimal <> Binaire 


CONVERTER est un nouvel 
accessoire de bureau pour le menu € 
de l'Apple TIGS - écriten TML Pascal 
— qui réalise ces opérations. Il se 
présente comme une calculette avec 
des touches à ‘cliquer’ (0 ‘+ F) ; les 
résultats (binaires, décimaux et 
hexadécimaux) s'affichent dans trois 
cases différentes ; la dernière case est 
constituée d'un pavé coloré qui vous 
donne (modulo 16} la teinte 
correspondante au chiffre entré 
(pratique pour se rappeler que O0 
correspond au noir, 4 au vert foncé, 
etc.). 


Converter est sur la disquette Pom's 
35 (avec son source Converter.Pas) : 
il suffit de le transférer dans le 
directory DESK.ACCS d'un Système 
ProDOS 16 pour le voir à l'œuvre . 


Converter est donc écrit en TML 
Pascal, qui est un Éditeur- 
Compilateur sur disquette 3'5 ; il 
coûte $125 et est puissant, rapide en 
compilation, beaucoup plus facile à 
manier que le GSBasic ou le 
redoutable APW : tout est en 
gestion-souris et menus déroulants. 
La syntaxe est celle du Pascal 
conventionnel avec des instructions 
nouvelles permettant de gérer les 
outils du IIGS et programmer assez 
facilement l'écran SHGR, les barres de 
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menus, les fenêtres, les graphiques, 
etc. 


Ce Pascal n'a de ‘Pascalien’ que le 
nom, la syntaxe et la structure des 
sources : il est en effet sur une 
disquette au format ProDOS et génère 
des programmes ProDOS de type $B3 
($B8 dans le cas particulier des ‘new 
desk accessories”) . Il est accompagné 
de nombreux exemples de sources 
dont on peut largement s'inspirer : 
c'est ce que nous avons fait pour écrire 
CONVERTER à partir d'autres 
accessoires de bureau présents sur le 
disque (TMLClock, TMI.Calculator, 
TMLPuzzle). Faire du Couper/Coller 
entre plusieurs ‘sources’ affichés 
ensemble à l'écran est bien entendu 
possible , 


Un inconvénient : les programmes- 
objets sont assez volumineux (bien 
plus de blocs que le source) . 


Quelques mots sur le 
source Converter.Pas 


Le Préambule - déclaration des 
“USES” et “VAR” globales — est 
classique. 

Trois procédures sont propres à 

CONVERTER : 

° procédure résultats où l'on fait 
tous les calculs de conversions 
(peut-être auraïit-on pu raccourcir 
cette partie du source en faisant 
appel aux outils mathématiques du 
GS “SANE” et “INTEGER”) ; 

* procédure DoMouseDown : ges- 
tion des événements souris ; 

+ procédure DrawPanel : on dessine 
les éléments de la calculette. 


Quatre procédures sont obligatoires et 
donc communes à tous les accessoires 
de bureau : Dalnit, DaClose, DaOpen, 
DaAction (elles comportent aussi 
quelques instructions propres à 
Converter). 


TML Systems 
4241 Baymeadows Rd, Suite 23, 
Jacksonville, Florrda 32217, USA 


G 


erd 


else if CurrentType = 18 then begin 


end; 


with touches{19} de begin 


end; 


firstClick 


nbr 
nbr := nbr*4096+B*256+Cx16+:D; 


:- À; 


{* cr entre un chiffre DECI *) 
nbr := 0: 

for i := 1 to length(affichage?) de nkr 
A := TRUNC(nbr / 4096); 

B := TRUNC(nbr / 256) MOD 16: 

C := TRÜNC(Inbr / 16) MOD 16; 

D :- TRÜNC(nbr) MOD 16: 


:- nbrti0tord(affichageZ(i])-48; 


Î := 16 to 16 do with tcuches{i} do begin (* on fait les coenverslons *) 
if 1=16 then begin f# affichage hexa *} 
1f A<10 then affichageZ :- concatichr(Ar48),'"} 
else affichagez := cencat(chr(iAs#S5), ‘'}: 
if B<i9 then affichage? := concat {affichage2,chz{5+48)) 
eise affichage? :- concat(aff ichageZ,chr{B+55)); 
if C<10 ther affichaGe2 := concat (affichage2,chr{C+48)} 
else affichage? := concat(affichage2,chr(C+55)); 
if D<10 ther affichage? := concat{affichage2,chr(D+48)) 
else affichage? := concat(affichageZ,chr(0+55)); 
end 
else I1£ i-17 then begin 
affichage? := 1"; 
nbraux ‘= nbr; 
while nbraux <> D do begin 
affichage? := concat{chri{TRUNM{nbraux) MOD 2)+48),affichage2); 
Aabraux := TRUNC(nbraux / 2); 


{* affichage binaire *) 


end; 
fer j := length(affichagez2) +1 to 16 do affichage2 := cencat ('0',affichagez); 
end 
eise 1f i=18 then begin {* affichage decimi *)} 
nbraux := nbxr; 
if nbraux = 0 then affichage? := "0" 
else affichage? := "1; 
wiile nbraux <> 0 do begin 
affichsge2 := concat {(chr{(TRUNC{nbraux) MOD 10) +48),affichage2) ; 
nbräaux :æ TRUNC (nbraux / 10); 
end; 
end; 
SetDirhColor (15); (* en *] 
SetRect (r2,r.left,r.tep,r.right,r.bottom); # ki) 
PaintRect (r2) ; (és va 2) 
MoveTo{r.left+2,r.bottom-2}; {# 4] 
rawCher(teuches{i].code}; {(* dessiner #) 
for ÿ :æ 1 to length(affichage?) do begin (# 4] 
McveTo(r.right-$*9-3, r.bettom-3) ; {+ les +) 
DrawChar flaffichage2{1ength(affichage2)+1-j]); f* 2} 
end; {* resultats *) 


(* ia couleur du save = resultat M@B 16 +) 
SétDithColor({(TRUNC(nDr}) MOD 16); {* c'est pratique pour trouver *) 
PaintRect (r} ; {* le numero d'une couleur !  *} 
SetDithColor (15/; 


sæ (rue; 


affichage ï= 1} 


end; (* 


Procedure DrawPanel{init : boolean) ; 


of Resuitat #) 


(* dessine et redessine 12 calculette *) 











var 1, j, debut,fin: Integer; 
RE de CE PROGRAMME P ASCAL (12089 ocTETS) 
if init then begin 
DR GENERE UN ACCESSOIREDE 15872 OCTETS 
SetRece (r2, 0,0,176,89); HELAS IMPOSSIBLE A LISTER DANS LA 
PaintRect (r2) ; 
debut 4 REVUE. RENDEZ-VOUS SUR LA DISQUETIE 
in = É 
end Pom's 35. 
else begin 
debut := 16; £in := 18; 
end; 


ror 


1 := debut to fin do with touches{i].r do begin 
if i <> 19 then begin 
SatDithColor (0) ; 
SetRect (r2,left:2,top-1,right+3,botton1); 
PaintRect(r2); 
end; 
if (i=17) and Init then SetBithColor{(15} 
else if (1 in [16,.18]) and (i <> CurrentType) then SetDithColor(3) 
else if init and (i = 19) then SetDithColor{(0) 
else SetDithColor(15}); 
SetRect{r2,left,top, right, bottar) ; 
PaintRect{r2); 
if 1 < 19 then begin 
MoveTo{left+5,bottan-3) ; 
if (i=17) and init then drawstring{ 
concat({' "chr(17),' TemSeftware ‘",chr(17))) 
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else DrawChar(touches{i].code); 
end 
eise 1f i = 20 then begin 
MoveTo{left:17,bottom-3) ; 
end 
end: 
end; (* of DrawPanel *) 


Procedure DoMouseBcni(theEvent: EventRecord) ; 


begin 

GlobsaiToLocal (thaEvent. where) ; 

if firstClick then with touches/fCurrentTypa] do begin 
PaintRect (r}; 
MoveTo(r.left+5,r.bottam-3) ; 
DrawChar (code) ; 
firstclick := false; 
DrawPenel{faise) ; 

end; 

for 1 := 0 to 15 do wlth touches{i}] do 
if PtInRect(theS&vent.where,r} then 


ÎE ( { (CirrentTÿpe = 16) and (lerngthfaffichage)<4) }) 
or( (CurrentType = 17} and (lengtr{affichage}<16) and 


{ (i=0) or (i=1i) }) } 
or( (CurrentType = 18) and {1 in {0..9]) 
and( flengthaffichage) <4) or 
{ (length(affichage)=41) and 
{( taffichagec'6553) 
or( (aff ichage="6553) 
and (4 in {0..51) } 1 } } }) 
then affichage := concat (affichage, coce); 
for { := 16 to 18 äo with touches{{] do 


if PernRect{thePvent.whare,r) then begin 

SetDithColor(15); 
PaintRect(r}; 
MoveTofr.left+5,r.bottom-3); 
DrawChar (code); 
affichage := 1°; 
Current fype := 1; 
DrawPanel(false};, 

end; 

for Î := 1 to length(affichage) do begin 


#oveTo {toucke s {CurrentType] .r.right-1{*9-3, touches{CurrentType] .r.bottom-3) : 


OrawChaer{affichagellength{affichege})+1-11) ; 
end: 
{£ PeznRect(theEvent.where, touches{20j.r) therr resultat; 


end: (* of DoMouseDown *) 





(rommmcnmmmmmm==— ns 


(* == Les 4 routines indispensables pour tout Desk Accessorÿy 


(tmmnmmmmommmmnmanne-v-nnmmnmennmmcnsnnmemmmmams-"#eusz +) 


Furictior: DACpen: NindowPtr: 
begin 
if my#indOpen then 
SolectWindow(myWindPtr) 
eise begin 
with myWind do begin 
param _length := sizeof (NewN{ndowPazamBlk) ; 


#F rame := $COAG: (* type de ia window et ses broprietes *) 


wTitie :e à'HexC+>Binc=>Dec"; 
x“Position.top 5 40; vPosition.bottom := 129; 
wPositfon.left :- 20: wPosition.-right :- 196: 
end; 
nyNindPtr := NewWindowfmyNind); 
SetSysWindow(myWindPtr}; 
end: 


DAOpen :- mywindPtr: 
myWindOpen :- true; 
end: (* of DAOpen *} 


Procedure DACIose; 
begin 
CioseWindow(myWindPtr): mYNindOpen := false; 


firstClick := true; CurrentType := 17; affichage : 


end: (* of DACiose *) 


Procedure DAAction{Code: Integer: Paran: Longint); 
Var currPort: GrafPtr,; what: Integer; æod{fiers: Integer: 
begin 
case Code of 
DAEvent: begin 
CurrPort := GetPort: 
SetPort (CrafPtr(myWindPer) };: 
what := £EventRecordPtr(param)".what; 
if what = updateEvt then begin 


DreuString('CONVERT'); 


(* cr à clique sur la souris !!! *) 
vas 1,3 Integer; chknun: Integer; lan Rect; 





==?) 


—- Suite de la page 30 


Apple Coop 
290 S.W. 43rd Shreet, Renton, WA 
98055, USA 


Applled engineering 

P.O. Box 798, Carroïhon, TX 75006, 
USA 

Beagle Bros - Software Touch 
6215 Ferris Square, Suite 100, San 
Diego, CA 92121, USA 

Bréjoux 

29, rue Montribloud — 69009 Lyon — 
7836 5269 

Byte Works Inc. 

4700 Irving Boulevard NW, Suite 207, 
Albuquerque, NM 87114, USA 
Central Point Software 

9700 S.W. Capitol Highway, £100, 
Portland, OR 97219, USA 
Checkmate Technology 

509 South Rockford Drive, Tempe, AZ 
85281, USA 

Diverslfied Software Research 
34880 Bunker Hill, Farmington, MI 
48018-2728, USA 

Froggy Software 

33, Avenue Philippe Auguste — 75011 
Paris & 43 58 25 98. 

Klan Software Inc. 

1850 Union Street £183, San Francisco, 
CA 94123 

Living Legend Software 

1915 Froude Street, San Diego, CA 
92107, USA 

Nibbhle Publications 

S2 Domino Drive, Concord, MA 
01742-9906, USA 

On Three 

4478 Market Street, Suites 701-702, 
Ventura, CA 93003, USA 


Orange Micro 
1400 N. Lakeview Avenue, Anaheim, 
CA 92807, USA 


Pinpoint Publishing 

5901 Christie Avenue, Emeryville, CA 
94608, USA 

Prim'vert/DDA 

36, rue des États Généraux — 78000 
Versailles 


Quality Software 

21610 Lassen Street, £7, Chatsworth, 
CA 91311, USA 

Roger Wagner Publishing 

1050 Pioneer Way, Suite P, El Cajon, 
CA 92020, USA 

Star Development Co. 

P.O. Box 5067 Elm Grove, WI 53122, 
USA 

Steven Humpage 

2427 NE 24th Avenue, Portland, OR 
97212, USA 
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BeginUPdate (myWinaPtr) ; 
DrawPanel (true); 
EndUpdate {nyñindbtr); 
end 
else 1f what = mouseDown then begin 
DoMouseDoëwn (&ventRecordtr(f2ran]"); 
end: 
SetPort (currPort}); 
end: 
DARun:; begin 
end; 
DACursor: ;: 
DAWenu: begin 
end: 
DAUnde, 
DACut, 
DACopy. 
DAPaste, 
DACieer: Code := 1: 


Ludologic 


end; 
end: (* of DAÂction *) 





Procedure DAInit (Code: Integer): 
ver lar,haut,Hint,Vint,1i,j: {nteger;: 


begin ; ; 
lar ie 20hout := 13:Hänt = diVint := 4; Taquin, Noir & blanc, 
if Code = Ü then begin s 
(* À DeskShutDown Call, chk that ny windew is closed +) hexagone magique, 
1£ mywindOpen then DAClose; je! A n 
_. trois jeux de réflexion 
else begin | de difficulté croissante. 
{* A DeskStartUp Call, init rmAéndCpen fiaç *) F : 
mÿyNindOpen := false; Ces Jeux qui 
(* Definfssons les touches de la calculette ...*] , . 
Sen EI 2 20 er = 6 6 de nécessitent des 
SetRaect (touches{{1-1)*7+]}.r.5+$*{(lar+tHint}, (1+2}* (haut+Vint)-heut, i 
Ssj*(lartHSnt)+lar, (+2) *(hart+V int) ): neurones aussl calmes 
for 1 := 0 to 1 do qu'entraînés, ne 
SetRect (touches{i+14].r,S+si*({Isr<Uint),5x(haut:Vint)-haut, , à . 
52 (lartHint}+lar, 57 (haut :Vint }); devraient pas décevoir 


for 4 :- 0 to 9 do touchesfil.code := chr{ir48); (* toucñes 0 à 9 *+) 
for £ := 1 to 6 do touches{i+#l.code := chriis64); (* touches À a F *} 


les amateurs de 


puzzles et autres 
SetRect(touches{16].r,15+9»{(lar+Hint) ,haut+V{nc*2, 2 
S+6- (lertHint)+lar.2*(Vint#haut}); casse-têtes. 


touches{16].code := "$’; (* touche hexadecl ?) 


SetRect{touches{17),r,S,Vint, 


S+6* (lar+Hint) +lar, Vintshaut); 
touches{17}.code := '#'; {* touche binaire *) Pour les Apple / 
SetRect (touches{18].r,5,haut+Vint*2, 80,00 1e franco, 

4+2* (larsHint)élar,2* (V£nt+kaut)) ; Bon de commande page 71 
touches[18].code := ‘d'; {* touche decimale *) (La disquette comprend 
SetRect ftouches{19j.r,8+#3*{(larthHint),heut+Vint”2, 

13+3*(lar+Hint)slar, 2*(Vint+haut)-1); les Sources) 
touches{19}.code := ! !; (* touche coiores *) 


SetRect (touches{20}:r, Ss2*{lar+Hint}, 5*(haut+Vint}-haut, 
St+6*{lar+Hint}+lar, 5*{haut+Vint})}); 
touches{20j.code :-— " ‘; {* touche Convert *) 


affichage := '';CvrrentType := 17;:firstClick := true; 
end; 
end: (* of DATnft »*) 





ÉP s me mm me mn D De LR ED D EE OS GA OL EE EE EE © de =w*) 
docs eco MATIN En te *) 
ftommmmmmme 2 20 0 mn ne ee Se enccœmmmmmm 0 } 
HEGIN 


(* FAS DR PRGCM PRINCIPAL... Îles procedures d'un NOA sont appelees autometiQquement *) 
END. 


[ÉREE 

















(1) 39 53 04 40 CE SERVEUR MINITEL — GRATUIT — EST, UN LIEN ENTRE 
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foujours plus vite... 





ifficile de présenter le 
compilateur Beagle sans 
tomber dans l'excès de 
superlatifs (pourtant mé- 
rités !). Le compilateur 
Beagle est en effet le 
premier à fonctionner sous ProDOS et 
le premier à générer un code moins 
volumineux que le Basic ; de plus il 
offre la ‘compilation instantanée” qui 
allie la souplesse du Basic aux avan- 
tages du compilateur. 





Le but du compilateur 


Il s'agit de transformer un programme écrit en Basic 
Applesoft en un code machine : l'avantage immédiat 
étant une exécution considérablement accélérée. En 
fait, Beagle a opté pour la solution du RunTime 
(disons : interpréteur) : un fichier de 6Ko doit être 
présent en mémoire pour permettre l'exécution des 
programmes compilés. Les programmes Basic ne 
sont donc pas transformé en code machine 6502 
directement exécutable mais en un langage que le 
RunTime exécutera : tout ceci est transparent pour 
l'utilisateur. 


Outre la vitesse d'exécution, deux avantages sont à 
noter : le code est plus concis que le Basic original 
donc il laisse plus de place aux variables lorsqu'il est 
en mémoire, et plus de place sur le disque. Il offre 
également une protection contre les indélicats qui 
voudraient s'inspirer d'un algorithme utilisé dans le 
programme par exemple, car un fichier compilé est 
tout-à-fait hermétique, bien plus qu'un programme 
assembleur. Pour en comprendre le fonctionnement 
sans le ‘source’ Basic, il faudrait avant tout analyser 
le foncüonnement du RunTime.…. 


L'utilisation 


Alan Bird, l'auteur, a simplifié la tâche de 
l'utilisateur : il n'est pas nécessaire de jongler avec 


Permis 1935 


les disquettes pour éditer puis compiler puis essayer 
puis rééditer.… 

Il suffit de démarrer sur la disquette Beagle pour 
installer en mémoire le compilateur et l'interpréteur 
(la documentation indique clairement comment faire 
pour se dispenser de démarrer sur cette disquette). 


Maintenant pour exécuter un programme Basic, il 
suffit de faïe : 


RUN programme OÙ 

— programme 

Le programme se charge en mémoire, se compile en 

FE instant et s'exécute. Pour modifier le programme, 
aire : 


LOAD progranume 

l'éditer comme d'habitude puis le sauvegarder par : 
SAVE programme 

enfin le réessayer avec l'ordre RUN programme. 


Lorsque le programme est au point, on peut le 
sauvegarder sur disque en format compilé (ce qui 
supprime la courte phase de compilation) ; pour 
lancer ce programme déjà compilé, 1l suffit de taper : 


RUN programmecompilé 


La compilation 


Le temps de compilation est particulièrement bref : 7 
à 8 secondes pour un programme de 10Ko ce qui 
correspond déjà un programme Basic volumineux. 
Dans la majorité des cas la compilation dure moins de 
deux secondes. 


Les fautes de syntaxe, les GOTOSs fantaisistes, les 
erreurs dans les dimensionnements de tableaux sont 
détectés lors de la compilation et l'erreur est indiquée 
clairement à l'écran. Il est bien sûr possible de passer 
outre ce contrôle au cas où l'erreur supposée était 
volontaire ; mais bien souvent, le compilateur signale 
des erreurs qui étaient passées inaperçues malgré des 
tests répétés. 


Lorsque des données ou des routines en langage 
machine sont discrètement cachées à la fin du 
programme Basic, le compilateur propose de 
l'inclure au code compilé. Parfois, il ne s'agit que de 
‘garbage’ inutile et l'on peut demander sa 
suppression. 
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Toutes les instructions 


Le compilateur ne s'émeut pas des instructions 
HIMEM: LOMEM: et autres DIM AS(variable). 
Même les instructions ampersand — sans 
paramètre — sont acceptées directement ; seules les 
instructions typiquement liées aux lignes Basic (LIST 
10-20, TRACE ou DEL 100 par exemple) et aux 
entrées/sorties sur cassettes sont incompatibles mais 
cela ne devrait pas vraiment déranger ! 

Pour les programmes unis par l'ordre CHAIN ou 
ceux qui utilisent STORE ou RESTORE, la 
compilation ne pose également pas de problèmes ce 
qui est encore une belle performance. 

Les routines ampersand avec paramètres sont 
acceptées par le compilateur mais le source de la 
routine doit être modifié pour évaluer les paramètres 
comme indiqué par la documentation. C'est plus 
complexe, mais Alan Bird l'a prévu. 


Bien souvent, avec ProDOS, on loge les routines 
assembleur à la place habituelle du Basic (à partir de 
l'adresse $801 — voir Pom_Link dans le n° 34) et on 
déplace le programme Basic à une adresse supérieure 
($2000 par exemple). Cette façon de faire est 
également prise en compte avec le compilateur Beagle 
avec l'ordre : 

RUN programme, A$2000 par exemple. 


Il existe un type de programme dont on est sûr qu'il 
n'est pas compilable : celui qui s'auto-modifie. C'est 
le cas du programme PARAMETRIQUE du numéro 
24 de Pom’s où des fonctions sont ‘pokées’ dans 
une ligne de remarque. 


Les performances 


La première performance de ce compilateur est 
d'exécuter sans modification les programmes Basic : 


> booter sur le compilateur, 

> prendre la disquette Pom's 29, 

> faire RUN SIMPLEXE et On Se #Ouve avec un 
Apple turbo-compressé : les résolutions sont 
quasi-instantanées. 

En ce qui concerne les ‘chronos’, voici quelques 

mesures effectuées sur un Apple // (sur un IIGS, 

diviser les temps par 2,8) : 


»+ L'exemple frappant par excellence 
10 FOR I = 1 TO 10000:U = PEEK (49200): 
NEXT 


Basic : 745. 
Compilé : 3,55. 


2 Pom’s 25, Tri de chaînes 


Nombre de reclassement en une minute du tableau 
exemple de 10 x 3 (pays, capitales, abréviations) : 


Basic : 28 





Compilé : 84 

Plus étonnant, le programme Basic avec routine de tri 
écrite directement en assembleur ne donne que 60! 
Affaire à suivre... 


> Programmes Beagle 

L'un des programmes de démonstration sur la 
disquette Beagle : il s'agit de la simulation du jet de 
deux dés avec statistiques sur la fréquence 
d'apparition du total 7. 


Basic : 302 essais/mn 
Compilé : 870 essais/mn 


La différence est bien moins frappante lorsqu'il y a 
de nombreux accès à la ROM de l'Apple : compilé ou 
non, le calcul de SIN (x) prendra le même temps. Ce 
phénomène apparaît avec l'un des programme de 
démonstration qui utilise les fonctions XDRAW et 
SCALE intensivement (rotation d'un trotteuse à 
l'écran). 


Basic : 18 tours/mn 
Compilé : 35 tours/mn 


æ Pom’s 25, Tesseract 

Ce programme de dessin en haute résolution d'objet 
en quatre dimensions sollicite également beaucoup la 
ROM : le gain après compilation reste honorable : 


Basic : 60 dessins/mn 
Compilé : 94 dessins/mn 


»*  Pom’s 31, Le voyageur 

C'est la résolution du problème classique du 
voyageur de commerce qui optimise sa tournée (ici 
entre cinq villes). 

Basic : résolution en 245. 

Compilé : résolution en 35 s. 

Sur la disquette, le Basic occupe 19 blocs et le fichier 
compilé 12... 


Temps de compilation : 8 s. 


Des ‘goodies? 


Trois utilitaires sont livrés sur la disquette Beagle : 
Slow.Paddles, Input.Anything et Fast.Hplot. 
> Le premier permet de ne pas lire trop rapidement 
la valeur des poignées de jeux pour en garder la 
cohérence. 
> Input.Anything remplace l'INPUT du BASIC par 
une routine qui accepte virgules et deux-points : 
pratique. Cette routine occupe 256 octets. 
> Fast.Hplot optimise la foncsion HPLOT au prix de 
1280 octets supplémentaires en mémoire. Voici 
les temps relevés pour remplir la page HGR avec 
le programme suivant : 
10 HGR2 : HCOLOR= 7 
20 FOR X = 0 TO 279 
30 FOR Y = O0 TO 191 
40 HPLOT X,Y 
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50 NEXT : NEXT 

Basic : 1975. 

Compilé : 365. 

Compilé + Fast.Hplot : 25 s. 


De la place 


Le compilateur et l'interpréteur chargés, 24 060 
octets sont disponibles pour le programme mais... si 
l'ordinateur est un 128Ko ce chiffre passe à 47 162. 
Toute la mémoire auxiliaire n'est pas utilisée maïs 
cela devient déjà très confortable. 


L'idéal est d'avoir une extension mémoire de type 
Apple ou RamFactor : le compilateur Beagle les 
reconnaît et y stockera quantité de variables. 7" noter 
que l'utilisation de mémoires auxiliaires reste 
facultative (le traitement des chaînes en est très 
légèrement moins rapides) et que les cartes MultiRam 
ou RamWorks peuvent être partitionnées par 
l'utilisateur pour en affecter une partie au disque 
virtuel et une partie au compilateur. 


Faire plus 


Trouver le point d'entrée d'une routine Applesoft 
n'est pas bien simple, la ROM étant truffée de jump 


et de ruses en tout genre. À l'aide du compilateur (et 
surtout de sa documentation qui donne l'ensemble 
des points d'entrée), il est possible de détoumer 
l'interprétation des commandes Applesoft à son 
profit sans jouer avec CHRGET et, par exemple, de 
doter l'Applesoft de la fonction LPRINT. La notice 
montre comment transformer le HOME pour qu'il 
agisse comme HGR... 

La notice donne par ailleurs des informations sur le 
stockage des variables pour en permettre l'utilisation 
depuis une routine personnelle. 


Présentation, documentation 


Pom'’s distribue le compilateur sous la forme 

suivante : 

> le package américain comprenant une disquette 
140Ko non protégée et la documentation 
américaine ; 

> la documentation française signée Pom's 
(traduction in extenso et non pas simplement un 
résumé). Insistons sur la clarté de la 
documentation qui ne requiert aucune 
connaissance technique ; 

> et. si nécessaire, l'habituel coup de main 
téléphonique. Un plus de Pom's. 





GLaiTes 





Damien Nould 





La disquette Big U (U-tilitaires) de 
Randy Brandt — l'auteur de 
SuperMacroWorks, c'est tout dire — 
est un ensemble de programmes et de 
commandes externes ProDOS. Elle est 
destinée aux programmeurs en Basic 
pour leur simplifier la tâche dans le 
travail sous ProDOS. Cette disquette 
regroupe des utilitaires qui utilisent 
pleinement les possibilités de ProDOS, 
mais de ProDOS 8. Les possesseurs de 
GS ne trouveront rien de spécifique à 
leur machine : Big U leur servira lors de 
la conception de programmes Applesoft 
avec Basic.System. 


Avant de passer à la description 
sommaye des possibilités de Big U,on 
peut noter quelques problèmes bien 
connus des programmeurs auxquels 


Randy Brandt apporte ses solutions. 


Peut-être la plus douloureuse des 
faiblesses de l'Applesoft car elle affecte 
l'interactivité des programmes : l'Input. 
Maintenant les caractères de contrôle 
sont éliminés, la touche Del fonctionne, 
la longueur de saisie est maîtrisée (tant 
en 40 qu'en 80 colonnes). 


Autre faiblesse : comment créer des 
écrans affichables simplement depuis le 
Basic ? Lorsqu'il faut afficher un écran 
de présentation, une page d'accueil, un 
écran d'aide, charger la page complète 
depuis le disque (qui peut être le disque 
RAM, donc instantané) est bien plus 
simple que se battre avec des PRINTs 
surtout lorsqu'on attache unie importance 
à la présentation. De surcroît, 
encombrer le Basic avec quantité de 
PRINTSs est un inconvénient 


supplémentaire. Big U offre un 
programme d'édition complet et, pour 
charger les écrans depuis un programme, 
il suffit de faire -mon. ecran. 


Insuffisance non de l'Applesoft, maïs 
d'Apple : peut-être utilisez- vous le 
programme Filer comme utilitaire de 
copie. Si c'est le cas, le programme 
File.Mover de Big U à lui seul vaut le 
prix de la disquette. 


Big U use beaucoup de la possibilité 
d'ad joindre des commandes externes au 
Basic.System ces commandes, 
toujours sous la main, utilisables 
directement au clavier ou par 
programme : Certaines ont déjà fait 
l'objet d'articles dans Pom’s (Online, 
Copy), d'autres sont originales 
(Anycat, See, Show, Xlister). 
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De nouvelles 
commandes 
externes ProDOS 


Anycat pour lister le catalogue tant des 
disquettes DOS 3.3 que ProDOS. 

Copy pour copier des fichiers d'un 
disque à un autre (une autre version est 
livrée en cas d'utilisation avec un seul 
lecteur). 


Dump pour recopier l'écran 40 et 80 
colonnes sur l'imprimante. La 
commande elle-même déternine quel est 
le format de l'écran. 


EST est un ensemble de trois 
commandes ProDOS : 

- Erase efface le programme 
Applesoft, réinitialise les pointeurs du 
Basic et le plan d'occupation mémoire 
de ProDOS, désactive la carte 80 
colonnes, etc. Cela peut être comparé à 
la commande FP sous DOS 3.3. 

- Space affiche la place libre sur le 
disque. 

- Time donne date et heure. 

Hex pour installer quatre nouvelles 
commandes. La première exécute les 


conversions entre décimal, binaire et 
hexa. La deuxième est une version 
améliorée de la commande L du 
moniteur (on peut préciser le nombre de 
lignes de désassemblage, que les lignes 
comportent 1, 2 ou 3 octets). La 
iroisième affiche les registres du 6502 et 
le registre d'état. La demière permettant 
d'afficher une zone mémoire. 

Mon et Nomon, l'équivalent du Mon 
utilisé sous DOS 3.3 pour contrôler les 
opérations-disques. Les commandes 
Create, Open, Read etc. s'affichent à 
l'écran pour permettre la surveillance de 
leur exécution et donc... de trouver le 
pourquoi de la panne. 


Online, une commande classique pour 
lister les volumes reconnus par 
ProDOS. 


Renew pour retrouver les programmes 
intempestivement effacés par New. 


See pour lister des progranunes Basic 
sur disquette sans devoir les charger en 
mémoire. En fait, tous les fichiers 
peuvent être visualisés ainsi mais seuls 
les fichiers de type TXT et BAS ont 
bonne allure (cela correspond à la 
commande TYPE des IBMistes). 

Show pour afficher directement une 
image du disque. Une version 
double-HGR est également livrée. Selon 
les paramètres, il est possible par 
exemple d'afficher la page HGR sans 


l'effacer, d'afficher une image HGR du 
disque en mode mixte texte/graphique 
etc. 

X1lster met en forme les listings Basic 
pour les rendre plus li- sibles : 


:HP=49200 


20 FOR I=0 TO 10 

READ À 

POKE I,A 

NEXT 

Cette commande fonctionne à l'écran ou 
sur imprimante et, dans ce dernier cas, 
peut être adaptée à une imprimante 
donnée pour qu'elle passe en caractères 
gras compressés italiques par exemple. 


Des utilitaires 


Appender est conçu pour concaténer 
des progranunes Basic. 

Beeper Works sera utile à ceux qui 
sont souvent rappelés à l'ordre par 
App}e Works : 1 en modïie le ‘bip {en 
fréquence et durée), Uniquement pour les 
versions 1.1, 1.2 et 1.3. 

Bigliner crée des lignes Basic dont le 
numéro est supérieur à 63999, Pratique 
pour y installer un message tenace. 
Cat.date adjoint la date aux 
commandes Cat et Catalog. 
Cat.fixer est un utilitaire de 
configuration des commandes Cat et 
Catalog : multi-colonnes, passage 
automatique en 80 colonnes. 
Cat.stepper installe la pause 
indispensable pour faire le Catalog 
fichier par fichier ou écran par écran. 
CRT.Writer est l'utilitaire de création 
d'écrans. Il comporte les fonctions 
nécessaires de justification, d'écriture 
verticale etc. y compris avec les 
caractères souris. 


s 


Date.Set met à jour la date en 
l'absence de carte horloge. 

Dump.40 & Dump.80 copient 
respectivement les écrans 40 & 80 
colonnes sur l'imprimante. 
Error.Editor est conçu pour éditer les 
messages d'erreurs de ProDOS (le faire 
sans ce programme est délicat car le 
codage adopté ne simplifie pas 
l'intervention manuelle - voir Pom's n° 
28). 

Flle.Mover simplifie les opérations 
de copie, d'effacernent de fichiers et de 





formatage de disquettes (on ne jongle 
pas avec les chemins d'accès). Il 
comprend bien entendu toutes les 
commandes standard d'un utilitaire de 
gestion de fichiers mais également une 
fonction plaisante à l'usage : Move. M 
s'agit de copier un fichier en effaçant 
l'original, donc de le déplacer : enfin une 
commande pour sortir simplement un 
fichier d'un sous-catalogue.. File 
Mover fonctionne également si vous 
utilisez vos disquettes i40Ko avec plus 
de 35 pistes (36.40). 

Input.40 & Input.80 relèvent le 
niveau du pauvre Inpui de l'Applesoft… 
Keycat.80 est un progranune de Menu 
accessible par le Reset : il affiche la 
liste des fichiers de la disquette et 
permet d'en charger ou d'en exécuter un 
par la pression d'une seule touche. 
Ram.Load charge dans le volume 
/RAM des fichiers à raison de SKo/s sur 
un //e. Livré avec son complément 
indispensable Ram Save. 


Rem.Ove enlève les Rems d'un 
programme Applesoft. 

Run.Counter contrôle le nombre 
dexérutiqus d'un qragramme eten garde 
la trace. 

Save.40 & Save.80 sauvegardent les 
écrans Text sur disque. 

Super.Poke simplifie les Pokes : 
pour remplir la page HGR avec $9 par 
exemple, faire : &POKE 8192:16384,9. 


Configuration 


La plupart des programmes de la 
disquette Big U requièrent : 

- un Apple //e avec carte 80 colonnes 
* ou un Apple //c ou 

* ouunApple HGS. 

Les programmes ou commandes qui 
travaillent sur le disque virtuel /RAM 
exigent pour les //e une carte 80 
colonnes étendue (c'est-à-dire un //e 
128Ko). 


Présentation 


Pom's vous offre non seulement le 
programme américain, mais également 
la documentation française intégrale 
(réalisée par Pom's) et le coup de pouce 
téléphonique en cas de besoin. 

Prix de l'ensemble : 450,00 TTC (avec 
carte Joker : 400,00 TTC) pour 18 
commandes externes et 24 


programunes.….. 
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Alain Bohec 


Corner light” est un accessoire de 
bureau alors que “LightInstall” est 
} une application, mais ces deux 
logiciels sont associés l'un à 
l'autre. 





Corner light 


On ne sait pas toujours ce que le Macintosh est en train de 
faire ; il nous arrive même, lors d'accès répétés et/ou 
prolongés au disque dur par exemple, de croire qu'il est tout 
simplement ‘planté’. 

“Corner light” perrnet d'installer une routine dans le vertical 
retrace manager. Cette routine demeure en perinanence dans 
la zone de mémoire du système. Notamment, elle ne 
disparaît pas lors d'un changement d'application. La présence 
de la routine est signalée par un point au-dessus de la &. 

La fonction de cette routine est de faire clignoter le coin 
supérieur gauche de l'écran lorsque certains ‘drivers’ sonten 
service. Dans ce cas, les fonctionnalités de l'application en 
cours sont parfois interrompues, et l'utilisateur en est donc 
prévenu par “Corner light”. Bien entendu, il paraît inutile de 
s'intéresser aux ‘drivers’ du type ‘accessoire de bureau’, 
d'autant moins que leurs index dans la Uni!T able peuvent 
changer lors des transferts à l'aide du Font/DA Mover. 
Aussi, nous ne considérerons ci-dessous que les ‘vrais’ 
drivers, c'est-à-dire ceux qui ne sont pas des accessoires. 


Les index des drivers examinés par “Corner light” figurent 
dans la ressource ‘'NDr#' de “Corner light” (voir Inside 
Macintosh volume Il, chap. 6 : “The Deviee Manager”). La 
liste des index des drivers, telle qu'elle se wouve dans 
l'édition de Novembre 85 d‘“Inside Macintosh”, est, en 
hexadécimal, la suivante : 


S04 Hard Disk Driver (XL seulement) 
$08 Printer Driver 

SOC Sound Driver 

S10 Disk Driver 

$14 Serial Driver Port A Input 
$18 Serial Driver Port A Output 
$1C Serial Driver Port B Input 
$20 Serial Driver Port B Output 
$24 AppleTalk .MPP Driver 
$28 AppleTalk .ATP Driver 
$80 SCSI driver 0 


$84 SCSI driver 1 
588 Le 
$9C SCSI driver 7 





Il est possible de configurer l'accessoire à l'aide d'un éditeur 
de ressources : 






—— Nür*# “indriuv" ID = -15904 
$[00 10 00 24 00 28 


Index des drivers dans la Unit Table 





Data 


Dans la configuration ci dessus, “Corner light” examine le 
Disk Driver et les drivers d'AppleTalk (indications des 
drivers sur 16 bits). 

La routine peut être ôtée du vertical retrace manager en 
sélectionnant de nouveau “Corner light” dans le menu 6. 


La fréquence de la routine et donc duclignotement est écrite 
dans les deux premicrs octets de la ressource de type 'pdz#". 
Les deux octets suivants représentent la durée d'apparition de 
l'affiche : 





== pdz* "délais" 10 = -16000 


Data 


s [00 DF 01 00 


Délai d'affichage 
de la publicité 


Délai entre les tests 
de fonctionnement 
des drivers 


LightInstall 








La fonction principale de “LightInstall” est d'ouvrir 
l'accessoire de bureau “Corner light”, ce qui a pour effet 
d'installer la routine de clignotement. Cette application a été 
conçue pour être lancée au démarrage du système. 

Si elle trouve l'accessoire à ouvrir (qu'elle repère par son 
nom interne DDO), elle l'ouvre en remplaçant 
éventuellement son nom par celui qui figure dans la 
ressource de type 'STR ‘et d'ID 171. 
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171 





== STR "accessoire" 10 = 


theStr [corner light 
Data | 


Nom de l'accessoire 


Pour que le nom apparaisse à son rang alphabétique normal 
dans le menu é, il faut qu'il commence par le caractère nul 
00. Pour insérer celui-ci, on peut ouvrir la forme 
hexadécimale de la ressource ci-dessus en pressant la touche 
‘option’ pendant le double-clic. 


Si elle ne le trouve pas l'accessoire à ouvrir, elle prévient 
par un dialogue. La durée d'affichage de ce dialogue figure 
dans la ressource de type ‘pdz# et d'ID 171 (voir plus bas). 
On passe ensuite à l'étape décrite ci-dessous : 

Après avoir cherché à ouvrir l'accessoire, “LightInstall” 
cherche à lancer l'application dont le nom figure dans sa 
ressource de type 'STR' et d'ID 172. 


STR "application" [D = 172 





theStr [Mactbrite 
Data | 





Nom de l'application à lancer 


Si elle ne trouve pas cette application, en particulier si, sur 
un disque formaté HFS, elle ne se trouve pas dans le même 
dossier, “Lightinstall” prévient par un dialogue. En 
l'absence d'action de l'utilisateur, ce dialogue disparaît au 
terme d'un délai dont la valeur se trouve dans la ressource de 
type 'pdz#' et d'ID 171 ci-dessous, et le Finder est lancé. 


EU pdz* "délais" ID = 171 





$|01 800180 0020 


Délai d'apparition du 
dialogue signalant 
l'absence de 
l'application à lancer 


Délai d'apparition du 
dialogue signalant 
l'absence de 
l'accessoire 


Le dialogue offre cependant l'opportunité de lancer une autre 
application. Si celle-ci est exploitée, le dialogue standard de 
choix d'un fichier apparaît, et permet de choisir l'application 
à lancer. Si celle-ci se trouve dans le même dossier que 
“Lighunstall”, son nom s'écrit dans la ressource de type 
‘STR ‘ et d'ID 172 et elle devient l'application lancée 
automatiquement par “LightInstall”. 





Pour changer le nom de l'application à lancer par 

“Lighünstal!”, deux possibilités : 

+ à l'aide d'un éditeur de ressources, changer le nom dans la 
ressource de type 'STR ‘et d'ID 172 ; 

+ presser le bouton de la souris lors du lancement de 
l'application “Lightinstall” ; le dialogue déjà cité 
ci-dessus apparaît alors, et l'on peut procéder comme 
plus haut. 


Dans tous les cas, "LightInstall" et l'application qu'elle doit 
lancer automatiquement doivent se trouver dans le même 
dossier. 

Il est également possible de modifier les icônes de 
l'application à l'aide de ResEdit : 





Icons from Lightinstall 


l'icone d'iD O masque celui du système 





ND LR. : l'accessoire “Corner Ligth” livré sur la disquette 
Macintosh 35 est configuré pour détecter les accès disques et 
AppleTalk. Si vous désirez modifier la configuration et ne 
disposez pas de l'éditeur de ressources “ResEdit”, il est 
disponible sur la disquette ‘Mac G’ (bon de commande page 
71). 


Source ‘Corner light.Asm' 





* - CORNER LIGHT — 


indicateur d'accès disque 
où autre driver 


La routine d'ouverture installe 
#* une routine à exécuter pendant la remontée du fafscoau 
et callacte la f-équance d'exécution dans les ressource 


La routine de contrôle est vide 


* La routine de fermeture 

- détruit le bandle installé dans lo DCE, 

— enlève la routine du VRM 

- enlève le repère au-dessus de ls pomm 

- détruit le handle des index d drlvors installés dans 

le heap du système 

dnnnnanpiins eur ertenp ent Se NOM RS AS mt pre PE eee 
dm PRÉLIMINAIRES ——---—"""" "0 
. INCLUDES 
include QuickEQU.D 
include TooiBEQu.D 
inciude SystEqu.D 
includoMacTraps .D 
include mABcro.TXt 
e EQUATES 


vb1TPtrSire equ 14 : taille de vblTaskPtr 

indic oqu 50100 : marque au-Gossus do la por 

Se" -onnotommmss— QÉÉICRS ===" — "runs 

numicon equ 1 

numRect equ 2 

a ———————————— 
xDef DERU 

Énmsntasmsen mirent sn me Am mmpnromininnrnléieriinenie 
DERU 

Se MOTS D'ENTRÉE 








de 52400 rbponsa aux cont rôles ot actions périodiques 
dc 30000 ;long dés cat contrôle Inutile 
dc 0 ipus d'é nerents 
de © pus de menu 
em - - Égacts vers 103 RQUELQ@S =" 
de DIGORADYR-DEAU ; 1 : ouverture 
dc Eshy-DERU ; Prime (pas utilisé) 
de YRZ-DERU : 2 : controle 
de Eshy-DERU 3 status (Das utilisè} 
de KLOZADYR -DERU + 3 : lerreture 
a mm annees Ure ----- mme 
talbennde.B 3 
dc.n *D00" ; Pour savoir s'11 est ]4 
.ALIGN 2 


mme QUVERTURE nn 





* A3 : OCEPLE 
* D3 : n° puis ID de l'accessoire 





CS ACCESSOIRE OUVERT 2 
1 On examina sj lo DCE contéent un handle 


PÉLELELELELELEEELE EEE EE EEE TEE EEE EE EEE EEE EEE EEE EE RCE EEE CEE 








tet.L dctistor age (A3) 
boq.5 -10 { = construction 
em .W,dCtl1RafNum(A3) 
_CloseDsekAcc 
bre Eshy 
Ramanmunnanasemensnmmnevcemenmnse OUVERTURE mere erer tem mmeerer penses rare emraquerst 
-10 
mme mm mn mm mmmimmmmmmmms LD G@ HASQ --—----""-""ss..“mmmmmmum 
move dCtiRefNum(A3),D3 ;n° de l'accossoiro 
sddQ #1:03 
neg D3 :10 da l'accessoire 
tal #5,03 
or 45C000,D3 :1D0 de base = 03 
œmmmmmmmm— BRANCHEMENT mm 
:D@Mière ouverture ? 
soui 
mms mmmcmmmmmmmemm—— ——…—…——_— AVI = ———— 
+20 
a Distogus 
æ L 
ES .L, SP 
_GetPart 
Sommsmenmmmmmmmmmmm——.— JD de ]'10000 -—-----____—_—_—__———— 
GtRos d'DITL',D3 
dep h.L, A0 
van .L (A0) , A0 
rove D3,Vo+lt@Oata+By (A0! 
en — ne a GOGCES ——— "0 
æ L spour le DialogPtr 
ep w,D3 
em -L,t0 3 = hosp 
ep +L.f-1 jfonôtre de premier plan 
_GetNawDiai og fenêtre fabriquée : 
noveA.L (SP) ,A2 #DialogPtr = A2 6 pila 
mms mm —.. pévélation et décoration —————--—--— — 
3; DialogPtr déjà suc la pile 
ShowWindow 
oœ LL, A2 
_SetPort 
psa WindowPort+PortRact (A2} 
PaintRect 






LELLELLEL LS LILT 


jitenTypo/itemardle/itemBox 














ep +DialogPer 

nn] n° de l’item 

Fes type 

pes Lo+#io+Lo+Wo (SP) handle 

pea 2*Lot#iot Lo#o+Lo(SP) :rectangle 

_GetDItem 

ediA fioeLo+Lo, SP  ;:on laisse un coin du 

coctangle sur la pile 

_kveT :RAN 
-——-————"-— collecte 

subA Mo®Lo:Lstr,SP snom/type/1D 

LC. .L,&t1priver (A3t 

pes Lo+LsSt r+Lo (SP) +10 

pen z*Lo+sistr(sPl) styre 

F2 3*Lo(%) :næœ 

_GutR#sïinfo 
——— ———————— beriture 

ep .#, fboldV+out linev  : +ahadouv 

setyle 

_TektFace 

ep .L,S adresse du nom 

_DrawSt ring ‘tracé 

adda MotLe eLStr, SP :RAN 
LEE ns". autres libellés __ 

em .#,40 

_TextFace :suppres aion des styles 

SetFont tasreva, t9 ‘fonte pour les libellés 


erp .L,A2 moveg Q ; return no error 
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_Drawbialog 





= ———— fermeture de l'affiche 
GetRes t'pdet' ,D3 
dep AL, Al 
roveA L (A1), A 
ep .K,DJ :satuvegards 
cir.L œ 
move #o (ALI ,D3 
ada.L Ticks,D3 
-30 cmp.L Ticks,D3 
bnt.s -40 ‘délai atteiac 
eæ Li 
_Burton 
dep +W, DO 
beg.S -30 ‘souris en haut 
40 dep 4.03 :restauration 
ep L,A2 
_DisposDialcg 
_SetPort 
CES —— INSTALLATION DO DEA ns 


* branchement ici pour ls première Suverture 


CCELELLLLELLELET] 





-50 mouvO #,91.013a mise à jour de l'indicateur 
GetRes d'pdst', D3 
moveA .L (SP) ,A0 shandle 
roveA.L (A0) , A0 sed resse 
mouv 1 M, (AO! , padO 
_ReleaseRezource 





——— INSTALLATION DES INDEX DE DRIVERS == 
*  placmrent dans un handle dans l’entrepot du système 


PLLELLEELEEEEEEEELELEEEEEEELELETEEEECELEE EEE EEEEEECECECECECECECTECEEEEEEETET 











GetReg t'NDrt',03 
move A.L (SPI,A2 ‘on gacéæe le handle sur la pile 
e L ‘pour la taille 
ep .L, A2 thañdle sur la pile 
_SizeRsro 
dep L, 00 ttaille en cecats 
noveÀ.L (21.A2 
rove .L D0,D1i 
Mevtiandle ,5Y3 
muvi L, A0, WoDriv ‘enregistrement dans la zone de données 
noveA.L (A0). Al «Pour la destination 
aove À .L A2. A0 sorigirne 
ave .L D1. D0 :taille du trensfert 
_Blockve 
Ur #1.01 snombre de drivers à tescer 
rnouvO #.01.NbrDriv enregistoement dons la zone de données 
iResflandle sur la pile 
_Roleasefosour ce 
Bee — NS TALLAT ION DE LA ROUTINETTE 
Le Création du Pointeur — 
les Verc{ige, A0 jorigine 
les Cute, Al extrémité 
eubA .L A0.A sd lfèrence 
move . L ÀA1,00 itaille du bloc 
_Nevtlandle ,SY$ 
_HLock 
move. L A1,D0 +restauration 
move. L AÛ.dtiStoragel(A3} :sauvegacde du handle 


ns ——— Tronsfert 


moveA.L {A0}, A0 ile pointeur construit 
noveA.i A0, A1 devient destination 
lea vertige. AD ;origine 

BlockMove ‘transfert 





E————————————— ]nstallation 
tadresse de la routine 


lea ROUT INETTE-Ver tige (Al), A0 

move .L A0, vblAdar (Al) 1placement 

moveA. L A1, A0 sadresse de vblTask 

_Minstall zinstallation 

bra.s Eshy 
À mmmmmmmmmm mm mm (EPMETURE “msn 
ELOZADYR 
msi "== nm. ENLEVEMENT DE LA ROUT INETTE ÊT DIVERS = 

move .L dCtistorage (ALI, AC thandle 

roveA.L (AOF, A0 :adresse 

VRemove enlèvement de la routine 


destruction das handles 


roveA.L aCt 18 corage {A1}, A0 
_DisposHandle 
moveA.L NoDriv.AC 
_DisposhHandie on 
Joffacoment de l'indica À AU desaus de la Dore 
moveA.L Sc rnBa so, A0 
move #0 ,Mo(A0) 


bansons à la réouverture 


cir.L dctistorage (Ai) 
bra.s Eshy 
pue men nee eee eine CONTROLE = 
Q le controle est vide 
gammes mena man mas PES ADRESSE LEE PRE RE RERO EPST TRE PE OPEN FPE 
YRZ 
mm 0 ee de ee ce de ee ce de ee ee ne ee mé 
em «L,3100one ; "control request" traité, saut à ioDone 
— 
Eshy 
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:Kenavo 





RTS 
2 meme me SOUS-ROUTINES "0" """""""" 
Mérnemnnssvenenencnenere eee 
2———- ame POUR LA ROUTINETTE 
Vartige 
dé.L Ô  ;suivant 
dc 1 ;type de la queue 
de.L 0 ;adresse do le routine 
Padez 
dc 9 délai entre les actions (tierces) 
dc 0 ;sans usage 
données 
Pad0 
de 0 ;délai initial 
NbrDriv 
de D :nonbre de drivers À tester 
NoDciv 
dc.L 0 j;handle des éndenx do drivers 
Énronaremees 
ROUTINETTE 
Nm nn nn me ne p—— ROUTENE A INSTALLER ---. 


; Cette routine, desti &e à 8tro ekécutée Pendant la remontée du faliscoau, 
j @xkamne 51 le driver de disque est on service et, si oui, l'indique en 
: exécutant la routine placéa Plus bas 

a ——— PRELIMINAIRES 





lea *“,AD ; adressg ‘ ROUTINETTE!: 
sréinitialisacion du délai 
me ve Pad0-ROU TINETTE (AD) , Padez-ROUTINETTE (AO) 
moveA,L ScrnBace, A2 ‘au cas où la marque aurait été 
oci findic,No(A2l ;.effacäa au-dessus de la pomme 
move, L NoDriv-ROUTINETTE {A0,A3 :handlo des index da dr:vars 
roveA.L (A3),A3 fadcosso 
move NbrDriv-ROUTINEITE(AQ),D1 nombre de drivers (compteur) 
mme TEST DES DRIVERS ==.“ 
TOVAA ,L UTableBase,A0 +adrosse de la UnitTable 
—0 rove (A3}+,D0 index du driver 
tac.L C4{AO, DO} handle du driver 
bag-5 -5 snon en servica (handle nul) 
movea ,L O(AO, DO) ,A1 
MOoveR ,L (Ai), AL 
btst tarvrActiva,dCtiFlags+By (Al) 
bne.s -20 zdriveor on service 
-5 subQ #1,01 sdécrémentation du compteur 
bne.8 -0 
CE CA NÉ TOURNE PAS = —. mm 
btst 7. (2) 3 51 c'est déjà noir, 
bne.s -10 :…sortie, sénon. 
oct #$COD0, {A2}  :.on nefrcit. 
s4dA ScraenRow,A2 ;._où {1 
or +58000, {A2} :-faut. 
— —— CA TOURNE —--- 
-20 eorl #$CO00, (A2) 
addA Sc resnRow, A2 
eorl #58000, (A2) 
RTS 
Chute 
Mme DONNÉES mm mme 
D£ja 
dc © déjà été ouvert ou non 





“ EventRocord 

* AJ : DialogPtr 

* D3 : compreur pour le motif 

« délai du dialogue en cas d'absence de l'accessoire 
. 


























mme mmmmnmerenemmene. SKIS 1} OEUVRE: =mnmmsenmmenesvœonmensepmses— 
Bean pape tnertetetpensseenpegeentenemegen en INCUDES = 
include MacTrapa .D 
include QU1ekEQU .D 
include Tbo1BE@v .D 
include Fi]zqu.D ;equates des fichiers 
include SyztEqu.D j;équates du système 
include mABero.Txe 
a mm EQUATES memes 
ab1D equ sAB 3 171 
norÂCe equ $0344444F ; nom interne da l'accesaoire (DDO| 
padez equ 59 
CeskPattern equ $A3C : desk pattern [8 bytes] 
a&ccAbsIo equ 3 
appAbsic equ 4 
» Divers 
fnfErr equ -43 tfichier introuvable 
drvrName equ 18 ‘non de l’accossoire [Str255] 
hollDeqgwez equ $0000FFFF 
RELAIS TES SR ES es LT les tasses 
xRef 
XRo£ ColiFich 
xRef SetDefDisk 
vCel 
vCelc DERU 
nsc dois nnaiaemleiieasasinaiiseistess soie te sure trs etes aie ai c est re sara tes 
DERU : 
mm mm mm mme NITIALISATIONS mm em 
pea GrafGlobals (A5) :variables globalas de QuickDraw 
_InitGraf 
_InitFonts 
_InitWindowa 
_Inithenus 
_telnit 
erp -L,+0 3: No cestart procedure 
_InitOsalogs 
.InitCursor 


este aertinenmsnt OUVERTURE DE L'ACCESSOIRE = mm momie mm mm 
DECORATION -==———_—…<… 0 















move .i #portRac, DO 
_Newrtr 
moveA.L A0, A2 
orp -L,A2 
_Open?ort 
. peinture 
moveA. L (A5) , AO ‘Dointeur sur les Variables globales de QuickDraw 
move. Time, Randsoed(A0) jinitsalisation 
move. fDeskpattern,A3 
moveQ 44,03 compteur 
-0 ep * 
Random 
dep 4W, (A3)+ 
subQ 41,03 
bne.s -0 
pea WindowPort+PortRect (A2 
arp .L,#DeskPattern jadcesse du motif 
_FitiRect 
=== émmmmemeneeeremenerce NOM DE L'ACCESSOIRE ss 
CellRes dab1D, String 


dep A-L,A2 handle du nom obligé da l'accessoire 








Source ‘Corner Install’ 


— APPDISKATOR -— 


epplication lançant l'accessoire da bureau "Corner Light" 


.. 


* 
;"Enbaliissamant" de l’écran À l'ai de d'un mott f aléatoire, 
:Le Graéptr n'est pas détruit, ainsi Que cortainos autres ressourcas, 
car l'application débouche sur le lancement d'une application sans pouvoir 
;1@Ventr on arrière. 
;aCCessoire : 
Recherche de l’accessoire par son nom interna. 
En cas d’ibsence, affichage d'un dialogue éphémère. 
Sinon, ouverture de l’accessofira. 
sapplication 8 lancer : " 
Recherche de l’aPpPlication dont le nom est 3 la ressource de type STR . 
:En cas d'absence, affichage d'un dialogue per ctant d‘en choisir L 8 aUtre. 
tLoreque cotte nouvelle application 03t lancée, son nom @at encégiatr dans 
ila ressource, 
#$1 l'application initialement préwe est trouvée, 0115 est lancéa, 
*La listo des délais n‘83t Pas ovV&te au début, 
*car an fonctionnemant Normal son ouverture os5t inutile. 
RE PT 
Al : handle de l'accessoire 
A2 : GrafPtr 

StréngHandia qu nom de l'accessoire 

StringHandie du nom de l'application 
A3 : DeskPattern 

SFReply 





da 


_.………. 











erp .L, F'DAVR' 
CeuntRe sources 
dep -W,D1 snonmbre de drivers dans les fichiers ouverts 
-10 ep L 
amp +L, #'DRVR' 
emp .",D1 
_GétindRoseurce 
movéA.L {se},Al iResHandlae 
moveÀ.L {A1}, AD jadresse du driver 
move.L drveame (AD) ,DO ;on cherche un nom de 3 lettres (DUO) 
cmpi.L Anomacc, DO 
beq Ouvr Acc 
:Reskandle déjà sur la pile 
_ReleaseResource 
subQ #1,D1 
bne.s -10 
— ———— — — ACCESSOIRE ABSENT 
- Dialogue 
Eu .L, (A2) :nom de l'accessoire 
ep .L, #0 
ep .L. 40 
em «L, #0 
ParamText 
ber.W COLLNOMAP P 
move #ab1D,D0 
bar. AFFDIAL 
Attente 
moveQ #0, 01 
bsr. COLLOEL 
-20 cp.L Ticks,D3 
bmi.s -39 idélai atteint 
bsr.W TEST 
beq.s —20 souris en haut 
-25 bsr.w TEST 


























-25 





‘souris en bas 





ep" LD ]OQUEe 
#accAos]c,D0 


:n° de l’item 





—- ACCESSOIRE PRESENT — 
2———————————— Hunipulation du Non 











« le handle du nom forcé est dans A2 
Re ne collecte de ]'I0 —--—--..-———_—— 
subA #LStr+Lo+Wo-Lo,SP ;nonwtype/ID, - ResHandle 
ep .L,A1 rhandle de j’accessoire 
pes LofLStc+Lo(sP}) ‘1 
pea 2*Lo+L tr(SP?) itype 
pea 3*Lo(S) nom 
_GetResInfo 
nove IStr+Lo(sP).01 :1D 
addA #LStr+Lo+Wo, SP :RAN 
PERS SES 7e CRANGEMENT QU NE —- 
erp L,At 
erp .h,D1 
ep -L, (A2) 
_SetResInfo 
ep -L,A1 
_ChangedResource 
ep -L,Al 
_Mritehesourese 
# Est-il Ouvert ? 
Js1 #2,D1 :multiplication par 4 
moveA,.L UTableBase, A0 tadrésse de la ÜnitTable 
moveA.L O{A0,D1),A0 shandle du QE 
cwp.L #0,A0 
beq.s -10 zl'accessoire n'a pas encore été ouvert 
moveA.L {AD}, A0 adresse du ME 
tstL tl$torage (AO) iroutinette installée 7? 
beq.s -10 :nen 
bra.s LANCAPP soui 
a QUEr ture 
-10 ep # spaur le n° 
ep .L, (A2) ‘nor 
CranDeskAce 
clr (SP}+ enlèvement du n° 
peau 
LANC APP 
GR à = CANCEMENT D'UNE APPLICATION = 
bsr.n COLLNOMAPP :3i ce n'est déjà fait 
As mme een mms -—— VERIFICATI@N DE LA PRESENCE —------ 
move.L #10 ElSize, DO 
_NewPtr  ,CLEAR 
_GetVol volume par défaut 
move.L {A2}, ioFireNare (A0) sadr. du nèm de l‘appl. = bloc 
_GetFilelnfo 
ssi 1-#, #fnfErr,D0.AppAbs 
 —— CANCEMENT = — 0m 
——————————————————— Dernière Chance 
bsr.Wl TEST 
beq.S -10 
0 bsr.W TEST 
bne.8 —0 
bra.s AopAbs 
——————_——————_—— Qn y va 
-10 ep " :main sound and screen buffers 
ep +L, (A2) adresse du nom 
nove.], SP,A0 





ABSENCE ; CHOIX D'UNE AUTRE APPLICATION = 
*Un dialoque germmt de lancer une autre application 

*ou de retourner au finder, 

*En cas de silence de l'utilisateur, 








*on retourne au finder passé un certain délsi, d'où une boucle d'évèreet. 
* Affichage du Di a1Que 
move #3b1D+1, D0 
bsr.W AFFU AL 
2 Discussion 
mm JNITIAÏÎSATIONS me mme 
clr.L D0 
move +evtBlkSize, DO 
_NewPtr 
move.L A@.A3 :EventRecord, fgerder je handle du non dans A2 
mo veO #1.D1 ;aecond délai 
bsr.W CLLODEL 
reve.L #hol16egve z, DO 
_FlusbEvents 
me mm mmmmmne DOUCle eee 
-0 cp.L Ticks,D3 
bp1.s - 
LT ee our ms... délai OU "mme mn mm 
moveQg #a9pAbsic,DO :n° de l‘item 
bsz,W EU RAX 
bra.s 9 ‘retour au finder 


=----------- délai non &COUIG ----—…— 






emp .H,Hho11:9egwez :masque 

emp .L;A3 iadresse de l’enregistremnt de l'évènement 
_GetNext Event 

dep -#. O0 

beq.$ -0 

move evtNum(A3),DQ 














CTP JnaurCwnzvt,00 
bre,s -0 
svbA fLe+Wo,SE :DialogPtr/ItemHit 
CE] LI 
érs .L,A3 
pea Losmo(s?) ‘DialogFtr 
peà 2elo+Wss22(52} itermhit 
_DfaïogSe!ect CJ 
de 00 corner light 
»eq.s -0 
ee nr BORIS == 
move +aPp»Abslc-D0 :n% de l'iter 
bsr.# FURAX 
cir.L {sP}+ zenlävement du Dialog?tr 
dep -K,00 sirenmdit, RAN 
sst 2.W#,4ok3utton,D0,AutrApp 
Mann enmmmmmnnn ess rotcur au finder ---------- tanins 
-19 sœ .L,A2 
pea FinderXam 
_Satstz4rg 
emp -L,A2 
_ChangedResauzce 
_BxitToShe]1l 
Ms prrmmneems— 
AutrApp 
À Lancement d'une autre Application 
* le handite du nom est toufeurs dans A2 
CS DLOG =40DD ===" mms mme 
GetRes t'coin',#ablD 
dep A.L,AUD 
mæveaA.L (A0). AO 
move.L {A0).D1 
emp .L,#+'APPL 
moveA.L SP,AO ‘adresse de la lisie des types 


subA #74,5P Dour la sfRaply 

movañ , L SP,Al ‘adresse de la liste du sfReply 
mo veQ 41,D0 jun seul type 

bSLY CollF”ich 

tat 00 

bne.s —10 zbas c'annulation 

addA $#74+Lo,SsP :enlèvement du sfreply et du type 
ExitToShell en Cas d'annulation 








--- vérification -- 


; si on relance l'application, on boucle 
PALLL LE LE LEE ELLE LE) RARRRARRRR RAR ARR ARR RRANMRQNRARRALZLRRRRR À 











-10 mveA.L A1,A3 sauvegarde 
cis.L DO 
2oveA.L #CurApNanme,AC ;adresse 
meve.3 {AD).D0O :longueur 
add #\,A0 
swap D0 
lea ÆKameiA3},Al adresse 
rove.3 {A1}, DO ‘iongueur 
addA #1,A1 
_CmpString ,CASE 
tst.Ll Do 
bne.s -20 différent 
CES choix de :’application en cours -- 
pea CvrApNama 
emp L,#0 
erp -2,40 
erp +1,40 
_Parartexs 
ep Li 
ep .#,#ablB+2 
ep -L,40 
_StopAiert 
dep <K,D0 
Dra.s AutrApp 
mm erzégist remart du nôûM —-----—-----— 
-20 erp «L,A2 
pea rNams (A3) 
_Setserirq 
emp -L,A2 
_Changeäresourca 
Rm ES 1aNG@iRnt ===" 
rove zVclume(A3}, :RefNum du disque 
ESe.N SetCefDisk 
D] Li smain sound and screen buffers 
pes Lars (A3) 
moveA.L SP,AQ 
Launch 
a = SOUS-ROUTINES == 
COLLNOMAPP 
ne nnnrnnns COLLECTE OU NOM DE L'APPLICATION = 
Collres #ab1D-1, String 
dep A-2,A2 handle, adresse utilisée plus bas 
emp -L,40 
ermp EL, (A2) adresse du nom de l'application 
emp .L,40 
sp -L,40 
_ParamText 
RTS 





- ArFiCAAGS DE DIALOGUE 






* œntrée ; JD - D0 

* sortie : A4 - Dialcq?tr 

EMRANAENMANENLLHALHELEUNLHALLEN 
erp -W.00 
emp .#,#1 


CLELLESELLELELECEE LC TEE EL EEL LE CE ELTI SELLE) 





s sauvegarde 
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dep RD restauration 
ep L 
ep -W.00 
emp -L,#0 
emp L,#-1 
_SetNevDialog 
movea.L (SP}, A4 
…LbrawDialog 
RTS 
FAR Le 
COLLDEL 
Jam" COLLECTS D'IN DELAI 
: entrée : n° du délai (entre O et 2) = Di 


; sortie : D3 = date de fin 


HLLLEEELELLELELELEEECEEEEETE EEE ECPONEEEEEOPEEEEOOEPEEPEPE EPP ET EEE TS 


1s1 #1,01 imultiplitation par 2 
GètRes #'paztt, babID move 2+Kot21),A0 
dep A.L,A0 ;handle de la ligto des délais _0elay 
mœveÀ.L (A0), A0 :adrèssa 9rp -L.A4 
clr.L D3 _DisposDialog 
nova (A9,D1),D3 sdélai on tierces RTS 
add.L Ticxs.D3 rer er 
ATS TEST 
mm ee homme nmmms-smmmmm—m—m— 
EVRAX æ N 
None ensesce EMBELLISSEMENT AVANT DISPARITION ===" Button 
“entrée : DialogPtr = A4 dep -NW,D0 
* n° de l'item = DO RTS 
ALLLLLLEELELELCEEELECEEEEECEEEECEEEEECE EEE CEE EEE CE EE ECC CEE CCE CEE V2 fananmnmnmnnsnssnnes=er-r 
em .K,00 ; sauvegarde * Néant 
em NE << PR 
SetPort FIN 
dep -N.00 irestauration 
subA 4LA+LO+VO, SP :Roct/Itemtandie/ItenType 


Numérisation 


Datacopy (20 920 F HT) est un 
outils de digitalisation (tripotage ?) 
qui se raccorde au port SCSI du 
Macintosh. Il traite une page au 
format A4 en 15 secondes et est aussi 
disponible pour IBM (personne n'est 
parfait.…). Distribué par Alpha 
Systèmes. 


DAO de gamme 


VersaCAD (18 900 F HT) est un 
logiciel de dessin assisté par 
ordinateur qui sait faire plein de 
choses ; comme il n'est pas question 
de décrire en détails un tel programme 
dans cette rubrique, le mieux est 
encore de demander une documentation 
(ou une démonstration) à votre 
revendeur. Revendeur qui, s'il le 
désire, peut participer à un Séminaire 
de formation à VersaCAD pour 
4 000 F HT. Distribué par Alpha 
Systèmes. 





Kodacintosh 


Slide Writer+ d'Honeywell (entre 





ep L.A4 #DialogPtr 

enp R,00 "0° de l’'item 

pos Ko+Lo+LR+Le (SP) -tyee 

sos Lo4Wo+Lo+1iR(S?) sbandle 

psa Z=LOorWo+10(SP) trectangle 

_SetDïtem 

erp .2.SP tadressa du rectangle 
op L Jplace Pour la handle 
ère .#: #ablC+t *1D 


_GetIcon 
itout est er placa 
_?lotïcon 


mevea . L #0, A0 


#RAN 


handle de la liste des délais 


SB=s=S--nspsenseussusss addA #R+LOrWO,SP 
GerRes 4'pdzè',#ablD 
dep A._L,AO 
mova.L (AD),A1 


;DialogPtr 








réalise des diapositives 24x36 à partir 
des images couleurs du Mac II, sur 
Kodak Ektachrome 100 ISO ou 
Polaroïd Polachrome 100 ISO. La 
bête (dont le cœur est un MC68000) a 
une résolution de 4096 pixels par 
ligne et peut pondre 45 dias par heure. 
Si vous êtes moins pressés, vous 
pourrez vous en sortir avec votre 
boîtier reflex habituel. Une version 
Macintosh Plus/SE est actuellement à 
l'étude. 





Câbles twinaxiaux 


Belden Electronics propose des 
nouveaux câbles 78,2 pour le réseau 
AppleTalk : le Belden 9999 est isolé 
avec du polyéthylène alors que le 
Belden l'est avec du Teflon FEP, ce 
qui autorise une installation en 
faux-plafond sans gainages 
supplémentaires. De bien beaux 
câbles. 








Écriture totale 


FullWrite Professional (£339) de 
Computer Unlimited, est un de 
ces nouveaux logiciels de traitement 


85 000 et 90 000 F HT quand même) de textes qui offrent des possibilités 





auxquelles on n'aurait même pas osé 
penser il y a seulement trois ou quatre 
ans. Celui-ci intègre un système de 
traitement des idées du type ‘Think 
Tank”, les césures automatiques bien 
sër, une option ‘Get info’ qui donne 
la taille du document traité ainsi que 
le nombre de mots qu'il contient, une 
possibilité de modification du 
‘“kering’ (espace entre les lettres), un 
dictionnaire de 100 000 mots (anglais 
pour l'instant), une recherche avec 
style, taille, etc., une possibilité de 
création ‘d'objets graphiques’ du type 
“MacDraw” sans passer par un tel 
programme, etc. 


Écran total 


Les StarCrex 19 et 20 fabriqués et 
distribués par Crex technology, 
sont des écrans monochromes haute 
résolution pour Mac SE. Ils 
permettent l'affichage de deux pages 
au format A4. La carte interface 
comporte 128Ko de RAM et se loge 
dans le ‘slot’ du SE. 


Mac < IBM 


MacLink Plus (2 550 F TTC) est 
conçu pour les transferts de fichiers 
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entre Macintosh et IBM ou entre 
Macintosh et Macintosh en local ou 
par le réseau téléphonique. Points 
faibles par rapport à Inter Pom'’s 2.0 : 
il ne permet pas l'utilisation du 
Minitel (modem obligatoire), ne 
semble pas se charger du recodage des 
caractères accentués et spéciaux, ne 
peimet pas la communication avec un 
Apple // et est beaucoup plus cher. 
Mise à jour MacLink/MacLink Plus : 
500 F TTC Distribué par Alpha 
Systèmes. 


Apple éducation 


Apple Computer France vient de 
signer une Convention avec 
l'UNAPEI (Union Nationale des 
Associations de Parents d'Enfants 
Inadaptés) pour favoriser le 
développement de l'utilisation de la 
micro-informatique au service des 
personnes handicapées mentales. 


AppleTalk 
téléphonique 

Il est désormais possible de connecter 
un Macintosh ‘hors site’ sur 
AppleTalk via le réseau téléphonique. 
Deux possibilités : NetSerial 
(3 950 F HT) si vous disposez déjà 
d'un modem aux normes Hayes ; 
NetModem (6 950 F HT) si vous 
n'avez pas ledit modem. Les softs’ 
sont compatibles Tops, AppleShare 
ou encore MacServe mais ne 
penmettent pas l'utilisation du Minitel 
comme modem. Distribué par Alpha 
Systèmes. 





Projetez le Mac... 


mais seulement l'image de son 
écran avec le rétroprojecteur 
MacWiewFrame. L'appareil est 
livré dans une valise — donc 
facilement transportable -, a une 
résolution de 640 x 400 points (trop 
juste pour le Mac Il), permet la 
projection en inverse (blanc sur noir) 
et coûte 16 900 F HT. Distribué par 
Alpha Systèmes. 


Système expert 


NEXPERT Objet (50 000 F HT) 
est un système expert très évolué 
conçu par Neuron Data Inc et 
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distribué en France par Intellia. Le 
prix comprend l'environnement de 
développement complet avec 
documentations, plus une demie 
journée de prise en main, une 
assistance téléphonique et les mises à 
jour du logiciel pendant une durée de 6 
mois. Intellia est aussi le concepteur 
de N-Toolkit (21 000 F HT), une 
boîte à outils pour NEXPERT. 


Sécurité 

Irwin Magnetics, surtout connu 
pour ses mémoires de masse sur PC, 
vient au monde Macintosh en 
annonçant l'arrivée prochaine de 
systèmes de sauvegarde pour 10, 20, 
40 ou 64 Méga-octets sur mini- 
cartouches. 


Sécurité encore 


Infosec, le salon de la sécurité 
informatique organisé par MCI, se 
tiendra les 7, 8 et 9 juin 1988 au 
Palais des congrès de Paris 





Grammaire 
anglaise 

Sensible Grammar ($9995) de 
Sensible Software, est la version 
Macintosh d'un logiciel de vérification 
de textes qui existe déjà depuis 
plusieurs années pour les Apple /f. Il 
ne fonctionne bien sûr pas avec les 
textes en français. 





Pour Macintosh 
baladeur 


Kangourou services fabrique et 
distribue MAC.CASE. Il s'agit d'un 
bagage conçu pour transporter un 
Macintosh Plus ou SE, un disque dur 
et le lecteur externe. On peut aussi 
obtenir un bagage assortie permettant 
le transport d'une imprimante 
Image Writer I1. Ces articles peuvent 
également être obtenus auprès des 
revendeurs Apple. Les prix : bagage 
pour Mac décor loupe d'orme : 1 215 
F HT ; bagage pour Mac décor pointe 
de diamant : 1 125 F HT ; bagage 
pour ImageWriter Il décor loupe 
d'orme : 1 079 F HT ; bagage pour 
ImageWriter Il décor pointe de 
diamant : 975 FHT. 


MacWrite 5.0 


Cette nouvelle version nous arrive 
avec un vérificateur orthographique 
intégré et un dictionnaire de 100 000 
mots. De plus, MacWrite 5.0 offre 
des ‘raccourcis clavier’, une 
commande ‘tout sélectionner’, la 
commande du curseur avec T4, la 
possibilité d'utiliser pleinement le 
MultiFinder et les écrans de grande 
taille. Le logiciel fonctionne sur les 
Macintosh 512/800Ko, Plus, SE et 
IT. 1 190 FHT ; mise à niveau : 500 
F HT. Distribué par Claris/ 
P-Ingénierie. 


MacPaint 2.0 


Nouvelle version totalement refondue 
du plus célèbre programme pour 
Macintosh. On ne peut plus 
maintenant lui reprocher grand chose : 
jusqu'à neuf fenêtres simultanément, 
menus ‘détachables’, défilement 
automatique, affichage ‘pleine page’ 
(20,3 x 25,4 cm sur un grand écran), 
possibilité de sauvegardes du 
document à différents stades du travail, 
affichage des tailles et position de la 
forme traitée, travail sur des 
agrandissements à 200, 400 ou 800%, 
ou encore sur une réduction à 50%... 
Fonctionne sur les Macintosh 
512/800K0, Plus, SE et Il. 990 F 
AT ; mise à niveau : 500 F HT. 
Distribué par Claris/P-Ingénierie, 


MacDraw II 


Beaucoup plus rapide que ses versions 
antérieures (de 3 à 10 fois selon les 
opérations), MacDraw gère désormais 
la couleur et est surtout devenu plus 
précis : 2000 points par pouce, 
hauteur et largeur du crayon réglables 
par incréments de 0,001 pouces 
centimètres ou points, réductions ou 
agrandissements de 3,12 à 3200%.. 
MacDraw Il fonctionne sur les 
Macintosh 512/800Ko, Plus, SE et 
II. 3 490 F HT ; mise à niveau : 
1250 F HT. Distribué par 
Claris/P-Ingénierie. 








Vous trouverez les adresses des 
distributeurs page 70 = 
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de.W DIGORADYR-DERU ;ouverture 


46 





affichage de l'heure sur le Macintosh a dé à été traité souvent et de 
multiples façons mais — et c'est là chose étrange — presque 
toujours avec la solution numérique. Or, et bien qu'il y ait 
certainement autant de partisans de l'affichage numérique que de 
l'affichage analogique, il semble que la seconde méthode permette 
une lecture plus instinctive, même si elle n'autorise pas la même précision. 


VE Fichier Edition Pré 


f°-"E 








L'emplacement retenu — à gauche de la € -— étant extrêmement exigu (20/20 
points), la méthode analogique s'imposait du fait de l'impossibilité d'afficher 
un minimum de quatre chiffres dans un espace aussi réduit. 

Voici donc une horloge toujours lisible, qui n'est pas perturbée par les menus 
comme ie sont certaines montres numériques qui se placent dans la barre de 
menu, mais à droite, et qui occupera très peu de place sur vos disques et 
disquettes (873 octets). 





Finder  Font/D4i 





imageWriter leTalk ImageWrCTiphoar 





de.W Distro-DERU : prime (unused) 





CE , 
Source ‘MiniMontre.Asm de M  YRZ-DERU ontrole 
de.W Distro-DERU ; Status {urused) 
dc.W KLOZADYR-DERU fermeture 
: MiniMontre.Asm * TITRE 
talbenn dc.B 3 
* ss... dc.B ‘kar' 
* * MiniMontre :- .ALIGN 2 
* CPPTECTE CETTE * OUVERTURE GGGGGGCGCCCCCCCCCCCCEC2CCECCECECECECERERERE 
* MONTRE EN HAUT A GAUCHE DIGORADYR 


BRANCHEMENT, fines eee ienocroeierie asie seroeieitieio 


* Le pointeur sur le DCE est sauvegardé sur la pile move.L gPtr,D0 


" utilisation de tempus.Rel beq.s @10 
X PRELIMINAIRES sssocoonssoessssenereeeceneessssesssse * AUTOFERMETURE ssosssscooooeoes sense sesesss 
* JNCLUDES essrssossssrersenesssesessseuseessessssesse emp .W,dCtlRefNum({Al) ;: n° du driver 
include SystEqu.D _CloseDeskAcc 

bra.s Distro 


include QuickEqu.D 
inciude MàcTraps.D 
include mABcro.Txt 


* INSTALLATION cososseossssssesssssesesessssssessssens 











# EQUATES seroosecsesessssssstenseesssessssseecssseonne 10 
csCode equ 26 * INITIALISATION DU GRAFP@RT +#t+titttitihitthtitttitt 
Pivot equ $00080008 spivot move.L #PortRec,DO 
Lga equ 6 :long grande aiguille _NewPtr 
Lpä equ 4 long petite aiguille mouvi L,A0,gPtr 
OX conoonnonnsonsosnnnnnneseone soon ssseeessee ep .L,A0 
* xRef _OpenPort 
xRef GrandAig * COLLÈCTE DU BMAP ÉÉÉHHEÉÉERÉE SERRE EREEEREEERE 
xRef PetitAig ep L 
xRef GetTime emp .-L,#'bmap' type de la ressource 
* xDef pea talbenn ;nom du BitMap 
xDef dt __GetNamedResourtce 


DERU : 

* MOTS D'ENTREE cesse ssesessseceseesssssssseecce 
* COMPORTEMENT 
dc.wW $2400 





sréponse aux ctrl et actions 


dc.wW 100 stoutes les 100 tierces 
de.W [e) aucun événement 
dc.W (u spas da menu 


* ECARTS VERS LES ROUTINES 








mouv0O L,(SP)+,bmH :BMHandle » bmH 
* ACHEVEMENT HÉÉHHHÉHEEEEEEREELE EEE EE HER EREEEEHE 
bra.s Distro 
* FERMETURE CCCCCCCGCCCCCCCGCCCCCCCCCERECECCECECCCCCeeCE 
KLOZADYR 
X SDECIAL vrocorosesseeses eos ones semer ssesensssssssese 
__DrawMenuBar 
emp .L,gPtr 
_ClosePort 
moveA.L gPtr,A0 
_DisposPtr 
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mouvO L,#0,gPtr ;pour réouverture 


emp .L,bmH 

_ReleaseResource 

mouvO W,#-1,dt+dtMinute ;évite attente évent 
+eeeee 
Distro 
* CLASSIQUE serosommommssmemmmesmsrsmsssmesssmssresse . 

moveQ #0,D0 ; return no error 

RTS 


* CONTROLE CCRRRBRCRRRECECRREREEEREERERECEEEERREEECEREEEE 

YRZ 

SAN ERAARARERELERERENMENSRENENNELNERATESALENALRIERANAIE 

* A0 pointe sur “Device Request Block“ et Al sur DCE. 

* ROUTINE PRINCIPALE ssosssesseeesesssssseecseesesseset 

emp -L,A1l sauvegarde du DCEPtr 

move csCode (A0),D0 n° type de la requète 
SSi I.W, #accRun,D0,Mouvement :action périod. 


Rovorvose 


YrzEshy 
: FIN DU CONTROLE mmmmmmmmw=-=------------œ…œœ 
dep A.L,A1l :DCEPtr -> Al 
emp .L, jioDone ;"“ctrl request" traité 
bra.s Distro 
* 
Mouvement 


* MECANISME vosssorresssseseresesensessssssresessssese 
* CONSULTATION DE L'HORLOGE +E++ttttéttthttttttttttért 

emp -W,dt+dtMinute 

bsr.W  GetTime 

dep .W,D0 

SS1i .W,dt+dtMinute,D0,DessMini 
* CALCUL DES POSITIONS ÉÉÉÉÉEÉÉEREEE ERREURS ERSEREE ES 
* Grande Aiguille 





subA #3*Extd,SP :pour angle et vect 
moveA.L SP,A0 
lea ga,Al adresse du résultat 


move #Lga,D0 ;longueur grande aiguille 
bsr.W  GrandAig 
* Petite Aiguille 


moveA.L SP,A0 


lea pa.Al adresse du résultat 

move #Lpa,DO ‘longueur grande aiguille 
bsr.W  PetitAig 
addA #3*Extd,SP 


* 

DessMini 

* DESSIN ÉÉÉÉÉÉHERÉÉÉÉEÉÉÉERÉÉÉEÉÉEEEEÉLEREEEEEEEEEEHHEE 
* CrafPtr de l'Application en Cours 


ep L ‘pour le GrafPtr 
emp .L,SP ‘pour que ptr soit sur la pile 
_GetPort :GrafPtr APPL en cours -> pile 


* Notre GrafPort 
emp .L,gPtr 
_SetPort 
* Effacement des Aiguilles 
* on écrase les aiguilles avec le cadran 
JRARARARTARR SEE LATE ÉMRÉERARARÉEÉARARARRAR TR TT TMSSSS ER 
moveA,L bmH,AO ;bmapHandle->A0 
moveA.L (A0}).,A0 :BitMapPtr->A0 
moveA.L AO,A1 :BitMapPtr->Al 
addA.L f#BitMapRec,Al :BitImagePtr->Ai 
move.L Al,BaseAddr{AO) ;BitImagePtr 
: ->BaseAdar (A0) 


emp -L,A0 :BitMspPtr ->pile 

pea Bounds {A0) :SrcRect=coin=BitMapBounds 
pea Bounds (A0) :DestRect=SrcRect=coin 
emp -W, #ercOr 

emp .L,#0 pas de ClipRgn 
_StdBits 


* Tracé des Aiguilles 
moveA.L gPtr,A0 
pea bxPat (A0) adresse motif -> pile 


_PenPat ‘dessin aiguilles en bianc 
* Grande Aiguille --------— 2 2 


emp .L,#Pivot 
_MoveTo 

emp .L,ga 
_Line 


Pipetite A1QUiÎle === SSSR esse 


emp .L.#Pivot 
_MoveTo 


_PenNormal 
_SatPort :réstauration du GrafPort 
bra.W YrzEshy 

* DONNEES CRCCeReeReeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 


* GEOMETRIE ossssosesessesseesesessesenessssecsessese 


gPtr dc.L 0 pointeur sur le grafPort 

bxk dc.L 0 spour le BitMapHandle 

ga dc.L 0 extrémité grande aiguille 

pa dc.L 0 extrémité de petite aiguille 
* TEMPS errors shreeeeeereseeerremetes 
dt dcB.W 7,0 sfiche de la date et du temps 


Tosssrrneessssrsrereeesrrssresessuueseeeesreceerrresse 


FIN 


Shoes reseossetresessssreeesesserres.cessseseeciresese 


Détecteur d'appels 
téléphoniques pour Macintosh 
Broches 1 et 3 


4x 
1N4004 


: 
î 


COCCEEEEEEECE EEE 


Relais 9V 


Souris 


Macintosh 
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Pascal Cantot 


e nombreux utilitaires 
double-haute réso- 
lution ont parus 
dans diverses re- 
vues, Pom'’s no- 
tamment : manipu- 
lation de pages 
DHGR, chargement, 
sauvegarde, etc. Mais à ma 
connaissance AUCUN n'offrait 
ce que l'on peut le plus désirer : 
un Basic Double haute 
résolution ! De plus, à côté dela 
Double haute résolution, il y a 
un oublié : la double basse 
résolution, 80 x 48, qui 
présente l'intérêt d'avoir des 
pixels carrés et non plus 
rectangulaires. 


J'avais écrit en 1983 un amper- 
interpréteur, ICARE, qui fut publié 
dans Pom’s et eut par la suite de 
nombreux descendants, chacun adapté 
au programme Basic que j'écrivais. I] 
y eut notamment un amper- 
interpréteur DHGR, dédié à un 
grapheur de gestion double-haute 
résolution qui ne fut jamais 
complètement achevé. Puis j'ai 
délaissé le Basic pour le 100% 
machine, puis pour le Turbo Pascal. 
Fortuitement, je me suis remis au 
6502 et, cherchant un idée de 
programme j'ai pensé à réécrire 
ICARE en DHGR. Mais j'ai pensé 
qu'un programme original, inédit et 
surtout moins long intéresserait plus 
Pom's et ses lecteurs. Alors, je suis 
reparti quasiment de zéro. Le 
programme tient en 1150 lignes de 
source 6502 et 2Ko de code objet. 
H150 lignes tout de même, car il m'a 
fallu réécrire la majeure partie de la 
ROM graphique de l'Apple //. Mais le 
résultat en valait la peine ! 


“Double graphics” offre en mode 


double-résolution les instructions 
Applesoft suivantes : HGR, HGR2, 
HPLOT, HCOLOR, GR, PLOT, 
COLOR, HLIN, VLIN, SCRN, plus 
d'autres fonctions très utiles comme 
PRINT, DRAW, LET et DEF pour 
gérer des caractères graphiques DGR 
couleurs, mixer graphiques DHGR et 
caractères 40 ET 80 colonnes, et 
redéfinir jusqu'à 256 caractères 
graphiques. Sans oublier quelques 
instructions de fenêtrage : HOME et 
CLEAR (cette dernière efface la 
fenêtre DHGR avec possibilité de 
demi-teintes), et le tant recherché 
SCRN double-haute résolution. 


Et ce n'est pas tout : “Double 
graphics” comprend des points d'entrée 
pour être appelé aussi par un 
programme machine, comme les 
routines Applesoft, dont il garde (pour 
HPLOT, PLOT, etc.) les mêmes 
protocoles de passage des paramètres. 
Ainsi, un HPLOT DHGR se fait de la 
même façon qu'un HPLOT ‘norma/’, 
excepté que X varie de 0 à 559. 


Carte mémoire 


$300-$307 : réservé à “Double 
graphics” : 

5300 : adresse de ja 
table de 
caractères 
taille des 
caractères : 
<128: 80 col. 
2128 : 40 col. 
si 2128, la 
pseudo couleur 
"INVERSE" est 
utilisée par 
HPLOT (seul le 
bit 7 compte) 
si >128 (bit 7 à 
l), FILLZ 


$304 : 


$305 : 


$306 : 





inverse la 
fenêtre. 
$800 : programme Basic 
$2000 : (main + aux) : 
pageDHGR 
$4000 : “Double graphics” 
(environ 2Ko) 
$4900 : (conseillé) : 


table de caractères 
(longueur L variable) 
$4900+L+1 : LOMEM 


Note importante : l'adresse mise 
en $300 représente l'adresse du 
caractère de code 00. Si vous utilisez 
les polices de 96 caractères d'Icare ou 
de Haifa, qui commencent par le 
caractère 32 (espace), il faut mettre en 
$300 l'adresse de chargement de la 
table moins 256 (8*32) si vous ne 
désirez pas utiliser les caractères O à 
31. Généralement, les polices 
utilisées ont 96 ou 128 caractères. 
Mais DHGR peut gérer jusqu'à 256 
caractères. En Basic, ne pas oublier 
que l'instruction CHR$ ne permet 
l'envoi que de 128 codes. L'idéal me 
semble être 128 caractères : 96 
‘normaux’ (codes 32 à 127), plus 32 
‘graphiques’ (codes 0 à 31). 


La table des fonctions se trouve en 
début de programme, dont l'origine est 
en $4000. Chacune d'entre elles est 
désignée successivement par son 
numéro et son label dans le source, 
suivis de la liste des paramètres à 
passer à la routine et enfin de sa 
syntaxe Basic. 


Appeler une fonction 
depuis un programme 
en langage machine 


Supposons que vous vouliez afficher 
un point en DHGR dans la couleur 
courante en X,Y=516,90 soit, en 
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hexadécimal, X=$204 et Y=55A. 
La fonction pour ce faire s'appelle 
DHPLOTO. Elle porte le numéro 9. 


Son adresse est S4000+n*3=S401B. 

Il est précisé, dans la description de 
l'instruction : 
Pam:X=xl,Y=xh, A=y 

xl représente l'octet de poids faible de 
x ; xh représente l'octet de poids fort 
dex. 


Le programme appelant sera donc : 


LDA £90 ou  LDA £$5A 
LDX £<516 ou  LDX £$04 
LDY £»>516 ou ELDY £$02 
JSR $4000+27 ou JSR $401B 


Fonctions de 
“Double graphics” 


Notes : 

. les couleurs vontdOà15; 

« les abscisses DGR sont comprises 
entre O0 et 79 bornes incluses, et 
les ordonnées entre 0 et47 bornes 
incluses ; 

- en DHGR, ces ‘gammes’ sont 
0 à 559et O à 191; 

« pour éviter toute confusion, les 
registres du 6502 sont désignés par 
des majuscules et les paramètres 
par des minuscules ; 

*. _xh représente l'octet de poids fort 
de x, et xl l'octet de poids faible ; 

«. _ilest impératif de se mettre en 80 
colonnes avant toute utilisation du 
graphisme, 


00 INITDHGR 

Parm : - 

Basic : CALL 16384 

Initialise l'amper-interpreteur. Auto- 


matiquement exécuté lors d'un BRUN 
DHGR où d'un - DHGR. 


01 FILLSCR 


Parm : A = couleur 

Basic : & GR couleur 
Initialise le mode double-basse 
résolution, réduit la fenêtre texte et 
remplit l'écran avec la couleur 
indiquée. Exemple : l'équivalent du 
“GR” dc l'Applesoft est ‘*& GR 0”. 


02 PLOT 
Parm : ŸY = x, A = y 
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Basic : & PLOT x,y 
Affiche un point basse-résolution en 
x,y dans la couleur courante. 


03 GRSCRN 
Parm:Y=x, A =7y 

Basic : & SCRN GR x,y,var 
Retourne la couleur du point aux 
coordonnées indiquées. En machine, la 
couleur est retoumée dans À, et la 
retenue (C) est mise à 1 si cette 
couleur est différente de zéro 
(autrement dit, si le point est 
‘allumé'), à O sinon. 

En Basic, la couleur est stockée dans 
la variable “var”. Si ceitc dernière 
n'existe pas, elle est créée, comme 
dans toute affectation, tout comme le 
ferait l'Applesoft. 


04 DOHLINE 

Parm : Y = xl, X = x2, À = y 
Basic : & HLIN xi,x2 AT y 
Trace une ligne basse-résolution 
horizontale à l'ordonnée y, allant des 
abscisses x1 à x2, dans la couleur 
courante. 


05 DOVLINE 

Parm : À = yi, X = y2, Y = x 
Basic : & VLIN y1,y2 at x 
Trace une ligne basse-résolution 
verticale à l'abscisse x, de y 1 à y2. 


06 SETCOL 

Parm : A = couleur 

Basic : & HCOLOR= couleur 
Spécifie la couleur à utiliser dans les 
tracés basse-résolution. 


07 DRAWCHR 
Parm:X=n, Y =x, A =} 
Basic : & DRAW n AT x,y 
Dessine en basse-résolution le 
caractère graphique numéro n à partir 
(coin supérieur gauche de la matrice 
du caractère) du point de coordonnées 
X,y, dans la couleur courante. 

Si cerwins points se situent en dehors 
de l'écran, ils ne sont pas tracés. Il est 
donc possible de ‘déborder’ de l'écran. 


08 INITHGR 
Parm : - 
Basic : & HGR 


Initialise le mode double-haute 
résolution avec 4 lignes de texte en 





bas de l'écran. Noircit l'écran. 


09 INITHGR2 


Parm : - 

Basic : & HGR2 

Même fonction que INITHGR (cf 
ci-dessus), mais sur tout l'écran (pas 
de fenêtre texte en bas). Notez que 
cette instruction ne commute pas une 
seconde page écran, mais là MEME 
page graphique, non mixte. 


10 DHPLOTO 

Parm : X = xl, Y = xh, A = y 
Basic : & HPLOT x,y 

Affiche un point double-haute 
résolution aux coordonnées spécifiées, 
dans la couleur courante. Déplace le 
curseur graphique en x,y. 


11 HGLIN 

Parm : A = xl, X = xh, Y = y 

Basic : & HPLOT TO x,y 

Trace une ligne double-haute 

résolution depuis la position courante 

du curseur graphique jusqu'aux 

coordonnées x, y spécifiées. 

Note : comme pour l'Applesoft, il est 

possible de chaîner les tracés. Par 

exemple : 

&HPLOT 0,0 TO 559,0 TO 559,191 
TO 0,191 TO 0,0 

trace un cadre rectangulaire marquant 

les limites de l'écran. 


12 HGRSCRN 

Parm : = xl, Y = xh, A = y 
Basic : & HGR SCRN x,y,var 
Renvoie 1 si le point aux coordonnées 
x,y est allumé, 0 sinon. En machine, 
le résultat est renvoyé dans A et dans 
la retenue (C). En Basic, le résultat 
est dans “var”. Notez que ce procédé 
permet de tester directement le résultat 
par BCS ou BCC en machine, et par 
“JF var THEN allumé”. en Basic. 


13 SETHCOL 


Parm : A = couleur 

Basic : & HCOLOR= couleur 
Spécifie la couleur double-haute 
résolution à utiliser. 


13 SETHCOL 
Parm : À = $FF 
Basic : 


& HCOLOR= INVERSE 




















Les tracés double-haute résolution se 
feront en négatif par rapport au fond. 
Par exemple, lorsqu'un point est tracé 
sur un fond blanc, il apparaît en noir 
(pensez à XDRAW). Ainsi, deux 
tracés successifs s'annulent (le négatif 
d'un négatif est un positif). En Basic, 
l'ancienne couleur est restaurée par & 
HCOLOR= NORMAL et en machine 
par LSR $305. 


14 FILLZ 


Parm : A = n0, X = ni 

Basic : & CLEAR n0,n1 
Remplit la fenêtre en utilisant l'octet 
n0 pour les lignes paires, et nl pour 
les lignes impaires. 

Attention : les 8 bits sont utilisés, et 
non 7 comme il est courant de voir. 
Ces 8 bits sont décalés sur 7 bits afin 
d'être tous affichés. Autrement dit, 
comme un pixel en couleur est codé 
sur 4 bits, il est possible de remplir la 
fenêtre avec des groupes de 4 points 
ayant chacun 16 couleurs possibles. 
Pour calculer l'octet correspondant à 
une paire de points de couleur cl et 
c2, la formule est n0 (ou n1) = c1 * 
16 + c2. Le point de couleur cl sera à 
gauche. Par exemple, pour remplir la 
fenêtre avec une alternance de points 
blancs (couleur 15) et noirs (couleur 
0), décalés de ligne en ligne : 

& CLEAR 15,240 


14 FILLZ 


Parm : $306 = $80 
Basic : & CLEAR INVERSE 


inverse la fenêtre (par EOR £$7F). 


xx SETWND 

(pas de vecteur) 
Basic : 

& HOME mg,md,mh,mb 

Définit la fenêtre. Les marges gauche 
et droite (mg et md) sont comprises 
entre O et 79, les marges haut et bas 
(mh,mb) entre 0 et 23. En machine, 
l'équivalent est obtenu en utilisant les 
adresses $20 à $23, 
Dans le cas de FILLZ (& CLEAR), la 
fenêtre texte est convertie de façon à 
ce que la fenêtre DHGR utilisée 
couvre exactement la même surface au 
même endroit qu'en mode texte. 


xx DEFPAT 


(pas de vecteur) 


Basic : & DEF n;nl,n2,….. ,n8 
Redéfinit le caractère graphique n avec 
les 8 octets nl... ,n8 (de haut en 
bas). Chaque caractère a une matrice 
hxv de 7 x 8 pixels. Chaque bit à 1 
représente un point allumé, à O un 
vide. 


15 HCOUT 
Parm:A=n,X=x, Y = y 
Basic : & PRINT x,y,CHRS$(n) 
Affiche le caractère graphique n en 
7*x,y (O<x<79, car les caractères ne 
sont affichables que sur un octet entier 
(l'abscisse DHGR correspondante est 
7*x), mais en revanche O<y<191). 
Les codes 0 à 31 ne sont pas 
interprétés comme des codes de 
contrôle, mais comme des 
CARACTERES graphiques. Il n'y a 
donc pas de retour chariot, ni de saut 
de ligne. 

Lorsque Y>184, il n'y a plus assez 
d'espace pour afficher le caractère dans 
toute sa hauteur : seule la partie à 
l'intérieur de l'écran est affichée. 

De plus, il n'y a pas d'affichage texte 
simultané : cette routine el les 
suivante ne modifient que la page 
graphique DHGR. 

Dans la mesure où j'ai voulu 
permettre l'utilisation de polices de 
256 caractères, le mode inverse est 
calqué sur celui du Basic : il suffit 
donc d'utiliser les instructions 
INVERSE/NORMAL de l'Applesoft 
pour switcher le mode d'inversion du 
texte. Le code du caractère ne 
détermine donc pas son mode 
d'affichage. 


16 STROUT 


Parm : 

$5E = adr, X = x, Y = y 
Basic : & PRINT x,y,exp 
La routine pour l'assembleur affiche 
aux coordonnées x et y (mêmes 
contraintes que pour HCOUT) Ia 
chaîne dont l'adresse est en $5E 
(INDEX). La fin de la chaîne est 
marquée par l'octet 00. Le caractère 
graphique 00 ne peut donc être affiché 
par STROUT. La longueur maximale 
de la chaîne est de 255 caractères. 
En Basic, exp est affichée en x,y. exp 
peut être une chaîne, un nombre ou 
une expression. Il est possible d'écrire 
& PRINT x,y,expl;exp2;… 


auquel cas exp2 sera affichée 
immédiatement à la suite de expl. 
Arrivé à la marge droite, un retour à la 
ligne est effectué. Les marges haut et 
bas ne sont pas prises en compte, 
puisqu'il n'y a pas de ‘scrolling’ (trop 
lent en DHGR). Le système adopté 
est celui de l'affichage par ‘page’ : 
arrivé en bas de l'écran (y>191), on 
conti nue en haut (y=0). 


17 FNDADR 


Parm : A=n 

Pas d'équivalent Basic (lié à 
DEFPAT) 

Calcule l'adresse des 8 octets de la 
matrice du caractère. Le résultat est 
dans X (adrl) et Y (adrh), ainsi que 
dans INDCHR ($CE). Cette routine 
sert à accéder aux caractères graphiques 
par exemple pour les modifier. 


18 SETMOD 
Parm : À = m 
Basic : & LET m 
Sélectionne le mode d'affichage des 
caractères en DHGR. Avant d'être 
transféré dans la mémoire vidéo, 
chaque octet de la matrice des 
caractères subit une opération logique 
avec l'octet de l'écran correspondant. 

Ces opérations sont les suivantes : 

° m=0: rien (affichage normal), le 
fond est recouvert ; 

: OÙ INCLUSIF (ORA), 
les caractères sont 
superposés au décor ; 

: OU EXCLUSIF (EOR), 
chaque pixel du caractère 
est le complémentaire du 
fond. À un point noir 
correspond un point blanc 
et vice-versa C'est le 
principe de la pseudo- 
couleur ‘inverse’ ; 

: ET (AND), seuls restent 
allumés les pixels qui 
sont à 1 à la fois dans le 
caractère et dans le fond ; 

: ZERO ,, les caractères ne 
sont pas affichés. 


19-22 USERI1-4 

Parm : … 

Basic: & USR n,…. 

Saute à la routine utilisateur numéro 
n, qui prend alors en main l'évaluation 
et le contrôle des paramètres. Les 4 
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vecteurs pointent normalement sur 


INITDHGR ($4000). En Basic, la 
virgule après n étant facultative, elle 
n'est pas sautée automatiquement. 


G 








Source ‘DHGR.S’ 


Assembleur Merlin-Pro 


CEPEEPCEELELEEEEEEEEEEEELEEE LEE 


DOUBLE GRAPHICS 


……. 


fC) Pascal CANIUT, Juillet 85» 
1081 87 et Juilliee 87 . 


CÉCEPEELELELEELLELELLLILLLLLE TE) 


LES ROUTINES 


‘DHGRK’ 
FONCTION- 
NENT SOUS 
PRODOS 
ET SOUS 
DOS 3.3 
SUR LES 
Apple //e 
128K0, 
11c et IIcs. 

















VALTYP = $11 
CNTR - s18 
TEMP = 519 
COUNTH = $10 
FNDLFT 520 
ANONOTH = $21 
ANDTOP = 522 
MNDETA = $23 
BASE = 526 
GBAS£ 5 526 
42 - $2C 
v2 = $20 
T&EN = $2E 
MASX - $2E 
CULOR = $30 
ABASE = $30 
INFLG = 532 
LINKWAMA = 550 
TEMPPT = s52 
HDEX = $5E 
DIRE = 520 
CHRGET = 581 
CARGOT = 587 
TDCHR = $CE 
ox D 50 
DY = 502 
GRANT - $03 
&£ e $D4 
X0 = $E0 
x0 = SE2 
AWDX = $E5 
KPAG - SES 
ABRCTRL ECU $300 
CARJOIA EQU  s304 
INVCOL EQU 5305 
ANVCUL? 6QU 5306 
PARFLAG EQU 
AMPVECT = 
SET86COL = 
TXICLR = 
FULL = 
MIXED = 
PAGE! = 
PAGS2 “ 
ORIZRES = 
IOUDIS = $CO7E 
ERROR = $D412 
FRHNM = $0067 
FRKGVE - 40078 
CTUM = fac 
SPEHR = $DECO 
PTRGET = SOFE3 
ISL&TE = $E07 
IOERR = $E199 
GIVAYF = SÉ2F2 
STRLIT = SE XE7 
PREFAC = $5600 
GEIBYT = SE6F8 
COBYIE = $S74C 
GETADR = $S£752 
Le): à = SE82B 
FOOT a. SED3H4 
HGR = $F362 
CDN = $F401 
eSATEL. = $F582 
GECAULC = $F847 
SETTOL = $F864 
BATALLC = $FBC1 
ORG  $4000 


* Table de vecteurs Pour l'appel des routines 
* depuis un Programme machins exterieur: 


JP INITDKCR 
JMP  FILLSCA 
JMP  PLOT 

JMP  GRSCRN 
JMP  DOHLINE 
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‘Initialise Armpersana 
“Init OGR et 

remplit ecran 
“Affiche un poîne 
basse-resolution 
sRetourns Is couleur 
du point b.r. 

‘Trèce ligne horizon 


FAUS MU HU HSE 


CELEPELEELETELELL ET ELLE ELLLLLE 


CP222222772777177221111/117717]] 


DAGR JSkR 
STA 


DXGR2 


DEGR3 


DOVLIRES :Trace 119re trecrticale 

STXUL Selection couleur OGR 

DRANCHAR sDesaine caractere DGR 

INJTHR ‘le DACR aix 

TINITHCR2 -Mde DAGR Plein ecran 

DHPLOTO Affiche un poine OHGN 

BSLIN ‘Trace une ligne DAGR 

XGRSICRN «Teste le point 
haute-resoiut ion 

SETRCOL sSelectianne couleur 

FILLZ cRemplit fenetre DHGR 

RCOOUT ;Afflehke un caractere 
graphique 

BSTROUT <Affieka chaîne OHGR 

FNDADR -Calcule adr. carect. 

SETMDO ;Selectionne le eccde 
d'affichage DRGR 

SNTXERR /Vecteurs Pour safouter 

SNTXERR snouvelles fonctions 

SNTXERR 

SNTXERR 

£2 “Mevectorise L'& 

JMPD EGR, Y 

AMPVECT, Ÿ 

AMPE RLOP 

ORGR 

TOKEN :(TXTPTR) -> À 

SNTXERR Peut etre change pour 
utiliser un autre 
amer-interpreteur! 

CARCOT sSaisit la commande 

TOKEN 

£o 

QOTEL.X ;Verifie ia commande 

NOTFND :;Si fin de tabie des 
mans 

TURKEN 

OEGRI “SL cmmand Erouves 

DEGR2 +Toujours pris 
Lars command est 
‘Crouvæe on 

ZORTEL,X :recuyære l'adresse 

GOTD»1 sd ia routine 

ADRIBL+i,X 

GLD+2 

CHRGET 

RTS1 ‘Adresse "bidon" 


frtekens") des commandes AcDieSofe 
8$g GR 


80 “PLOT 
ag - CLRe 
8e : HLIN 
8€ 2VLIN 
93 <AP LOT 
BA “PRINT 
92 < BCULOR= 
BE :GET 
Bèâ +CEF 

gi :RCH 

90 + BGR2 
24 ; DRAN 
97 : RO 
230 - CTÆ£AR 
£A :LET 
D5 -USR 


“Fin de le table 


* Table des aresses des routines 


ADRTBL DA 


SRRRRESSSESSERSE 


CEPLPLZEELELLELELILLLELLLILLL 117] 


XUSER JSR 
CPX 
BCS 
STX 
TXA 
ASL 
ADC 
ADC 
STA 
USRIM JM 


GETBYT 
£4 
GOIQERR 


‘numero vecteur (0-3) 


-Calcule USSRS + n"J 
‘forcement C=0 car nc4 
ide mere C=0 ici aussi 
4TOUS vecteurs USERS 
-sur la mere page! 


GOIQERR 


XPLET 


XALIN 


XCOLOR 


CAKAT 


RASASURUNES à 


CE 


ER 


EREEEEELEÉLEREEEEEEEE 


SETELLTEFEEE 





‘Redefinit la fenetre 
texte 
; (utile pour FILL) 
:Saisit dans l'ordre: 
SGEN. MAX, YMIN, YMAX 
savwc X entre 0 et ?9 
set Yentze 0 et 23 
‘Erreur si XMAX < XMIN 


‘Effectue AMAX-AMIN+1 
> lacçeur fenetre 


:Erreur si YMAX < YMIN 


4 Ces d'erreur 
sla fenetre N'ES2' PAS 
medifiee 


‘"TLLEGAL ©, ERRNR" 


GR? 


:HGR? 


“Resultat -> Variable 
“AY -> variable 


‘Teujourg pris 


:$a1sit ceordonnees 
et affiche le point 


/Saisit les abscisses 
‘Controle la virgule 
Controle le "AT" 


:Saisit l'ordannee 


set trace la ligne 


<Expresslon —> x 
4Err. sl covleur >16 


"AT" 
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ILLOTT  JMP ICERAR 

GETGRAY JSR  GSIGRX 
STA TE 
JSR  CHKCUM 
JSR  GSTGRY 
TXA 
LDY TE 
RTS 

GSIGRX JSR GETEYT 
CPX 1890 
BCS  {LIQOTY 
RTS 

GEIGRY JSR GLTBYT 
CPX £48 
BCS  ILLOTY 
RTS 

AYVAR JSR  GIVAYF 
JSR PIRGET 
TAX 
JMP  MOVMF 


sSaute la virgule 


sErreur si X>79 


Erreur si Y>=48 


JA Ÿ -> Fac 

Cherche variab en RAM 
{la cree s1 elle 
n'existe pas) 

“puis Fac -> Variable 


détetsppssivanéemménttttététttés 


FILLSCR LDA COLOR 


STA TEMP2 
JSR  SETCOL 
FILLSCRZ STA  TXTCLR 


STA  SÉT80COL 
STA  IOUDIS 


STA  DHIRES 
STA MAD 
STA  $C056 
STA $C000 
LDA COLOR 
STA TE 
JER EL 
LDA £0 
STA IR 
FILSCRZ LOA CNR 
JSR  GECALC 
LDA COLOR 
LDY £39 
FILSCR3 STA  $C00S 
LDA COLOR 
STA  (GA&),Y 
STA  $C004 
LDA TE 
STA (GBA), Y 
DE 
SPL FIESCR3 
AC IR 
LDA CNTR 
C#@  £20 
&C  FILXR 
LDA  TEMP2 
STA COLOR 
RIS 
GRSCRN  PHA 
LDA  £$91 
STA  IŒYT? 
PLA 
JSR PIQT 
LDA £$B1 
STA  IOBYT2 
LDA  MASK 
EOR £SFF 
STA TEW 
LDA TEMP2 
AND MASK 
CM  £$10 
BC  GRSRNI 
LSR 
LSR 
LSR 
LSR 
GRSCRN2 BIT PARFLAG 
BPL  GRSCRNS 
IDY £0 
STA  TEM 
ASL 
ASL 
ASL 
ASL 
ORA  TEW 
GRSCRN3 CM COLTBL,Y 
&EQ  GRSCRN4 
JW 
BPL GRSCRN3 
GRSCRNS Ta 
GRIANS AND  £$0F 
C#  £1 
RTS 
PLOT LSR 
PHP 
LSR PARFLAG 


-Initialise node DGR 


cad de LDA (xx),Y 
s{ermeche PLOT 
d'afficher le point) 


‘Utilise PILOT pour 
recuperer 


él'octet dé l'ecran 
correspondant 

; {PLOT le range dans 
TEMP2) 


-S1 0000xxxx 
«Si xxxx0000, decala 
4 fois a droite 


Colonne paire? 
:Non->Couleur cerrecte 
:0v1-2Convers ion 


Toujours pris 


‘Resultat fcouleur 
0-15) dans À 
savæc C=1I si nan noir 


RRASK 
PLOTI 


P1872 


IOBYT2Z 


DORLINE 
ALINE 
HLINEI 


DOVL IE 


VLINEZ 
VLRE 


RTS1 
EVCOL 


COLTBL 


DRAW 


DRANCHR 


ADRCHR2 


DRCHR1 


DRCHR2 


DRCHR4 


BÉSSANGENE RORSAUNUSES ARIERS 


EE) 


JSR 


;PLOT & la dernfere 
ecdanneæ (4-21) 


‘Inhibe le commutateur 
RAMART 


$co01 


PAGEL 
“Si pair, mev aux. 


PLOT2 
PARFLAG 
PAGE2 


EVCOL 


PLOT :Trace ligne berizon. 
A2 ‘XI a X2 6 ordonnee Y 
RTS1 *Y>AXLY,M>R2 1520) 


:Toujours pris 


Trace ligne vwziticele 
PILOT ‘Y1 a YZ a ebscisse X 
*YISAXY,Y2>V2 ($2D) 


v2 
VLINEZ 
COLOR 
£$0F 
COLTEL, Y 
COLOR 
0088119922AA33B8 
44CCSSOD66ES77FF 
GETBYT ‘Dessine un caractere 
CNTR ‘basse-resolution 
CRKAT 
GETGRXY 
CNTR 
CHAR Y-2A, X->Y, Chber->X 
YFOS 
ÆXPOS 
LINNOM 
ÆENDADR -Calcula adr. caract. 
SETIMSK sCealcule mesque 
d'inversion 
£8 Matrice di caractere 
CNTR :camrend #8 octets 
(8x8 points) 
*+1 (etnon 7x8 cuve en 
DRER!) 
$2000 Adresse (arbitrsire) 
dæ l'octet 
INVMASK *Inverse la matrice 
si mode JNVERSE 
£8 Tester les 8 bits 
ONIR2 
LINNOM 
XPOS 
iPecale à droite. 
DRCHR4 ;:S1 C0, pes dæ point 
:81 Cl, un paint 
YFOS 
XPOS 
£48 Sortie de l'ecran 
DRCARS “alors n'affiche pes 
£80 le point 
DRCER 3 
FLOT 
ÆPOS 


CELELELS 


RIRES2 


AIRES 


HIREND 


| 


SRDSESHBNS AGEN E SSRARRRNTESRERRENE RSR 


DEFPAT 


D&FPATI 
DEFPAT2 


INITAGR 


INITEGR2 


FILL 


FILLI 


FILLZ 


FILL2 


RTS 


Ed 
à 


CRE EEE RE LCEPLELEFEEE 


SE 


SRSRSRARSIRRSSRARSSS 


DRCAR 1 


ROUTINES ######* 


TXTCLA - GR 
Puis EGR 


FULE “Full graphles 


£$9E Couleur” inverse? 
«Si INVERSE, alors C=1 
:1 -> 8it7 de INVOQL 


Couleur narmaie ? 


:C=0 
:Toujours pris 


£SFF ‘Couleur “inverse” ? 
:S1 pris, alors C=1 


$F s#Init : Blanc 
Code ASC II du caract. 


HGR ‘Initialise HGRI 


£$9E -Inversion demande? 
‘Non->Saisie 2 octets 
{Sinon Cx1i->BÎt? 
INVOOL2 


:$Salsit paire d‘octets 
;Le gremier (À) pour 
lignes paires 

+Le second (X) pour 


lignes inpoires 


sConveztit fenetre Cxt 
en coard.exploitables 


:S'assure DHIRES ON, 


;Calc. adr. ligne 
:Comænce a gauche 
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PILEVEN 


PILLI 


FILL4 


A ASSRSANAUESNNESREÉSES 


FILLS 


YI 


ÆLIN 


SSERARRERRES 0 REGEUESRANTN BUBRENE GERS GRRASERNS HÉNSS GRR BRIRS ANA ARTE 
È 


PHA 


—_—_—————————— 
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Teste parite ligne 
:Si poire 

‘ImPeire, oct. suivant 
:Pœænd oct. remplissag 


Teste parite colonne 
<S1 MEV principal 
SI MEV aux. 


inversion? 


srotation de l'octet 
vers la gauche: 
:On decale, bie7->, 
puis encore: 
bit7->bic0 

+Octec suivant 


-Jusqu'a marge droite 
‘Ligne suivante 


‘Jusqu'a marge du bas 


“N'invec se Das le bic7 


+Toujours pris 


so de LDA (xx). 


‘Mxdifle O4PLOTI 
Dour ŒcuErer 
xx de STA (xx, Y 


:SÈ serv, polpt etein 
Sin, allume 


:Truc! (Opc de BIT xp} 
:(0 ou 1] dans Aat C 


70°? 

:Ovi-> iigre 
Prend coerdennææs 
pointe de deport 
“Affiche le point 


Ligne? 
#Non-> Fin 


‘Prend les coordonneæs 
de destinatian 


#Plot line 


:P entree: 
+ XL: A-re0 
2 304: X-reg 
4: Y: Y-reg 


+Calcule ABS(X-X0) 
; dans (DX, 4) 


sdir X -> bit de signe 
; de girnt. 

4 0 = droite (0X pos) 
+ 1 = gauche {DX reg) 


sEnitiaiise &E,H a 
ABSIX-X0) 


MOVEX2 


LFTRT 


LEPTI 


DAP£LOTO 


O&PLOT] 


BURBGBESSASSNERN HEBRE RRÉNNBNRESRER 4 AUSSHEERES AURUR HARAS 


DEY 


SSSEREURANSRNS ASRASAGRARSSNENE DESES 


-Calcule -A8S{Y-Y0)-1 
dans DY 


sAotstion Y dir dans 
sie bit de signe de 


dant 
5: (0 = haut, 1 = bas) 


“lnitialise CANTL, A 
; à -(OSLTX,DELTY4+1) 


:Index horisental. 
«Toujours pris. 

“MVt dans X-dir. 
Utilise 

: bit6 de @RNT bité 
pour g/dr. 


<Suwppase Cu] 

:1RE,H) -DELTY > (£E,H) 
Note: DY= (-DELTY)-1 
: Col (&E,H) nagatif 


Affiche point 


. On à Crace 
DELTX+DELTY] polnece? 


+S1 oui, termine. 
:Tester la direct ie. 
ÆSx C-1, affiche point 
CE. A) 

«C0, neg, dplscemænt 


+ (BE, H) #+DELTX > (EE, H) 


“Toujours pris. 


sSigne : LEFT/RIGHT 


‘Toujours pris 
spour LEST môis pas 
pour RIGHT 


«40 pour ja ROM! 


:Bit 0 -> Carry 


<“Couleur” inversez 


OHPLOTÈ LDA ÆOLI 
EOR  {HBASE),Y 
AND  HMASK 
ER (HBASE) ,Y 
D&PLOT3 AND £$7P 
IOBYr1 STA (4BASE),Y 
STA  FAG£EÏ 
STA $C600 
ROL ANDX 
ATS 
#HNS JER  FRMUM 
JSR GETADR ‘Evalue expression X 
LDY LINNUM+] 
LDOX LINMM “Controle validite 
ŒY £>560 # (doit etre < 560} 
HEC  HENSI 
BNE ILOTY ‘sinon, erreur 
CX £<560 
&cs ITOTY 
HFNS1 JP SF “@ laisse l'APlesoft 
. faire le reste 
TLOTY JM  IOERR 
HPOSN STX  X0 -Calcule adr. (HBASE) 
STY  XO0+1 set msq (EMASN) pour 
C@ Yo “Dont speci£ie: 
BEQ HPOSNZ “En entree: Y->A 
XI>X, Xh->Y 
STA Yo 
FHA 
AND ES$CO 
STA  AEASS 
LSR 
LSR 
ORA  HBACE 
STA HBASE 
PLA 
STA  RBAZ +) 
ASL 
ASL 
ASL 
ROZ  HBASE+] 
ASL 
AOL  HBASE+] 
ASL 
ROR  HBASE 
LDA  HBASE+1 
AND  E£S$1F 
ORA  HPAG 
STA  HBASE+1 
RPOSNE TA «Divise X0 par 7 
ŒY  é0 iQuot ient = Numero de 
l'octet (0-79) 
BEQ HPOSNS iceste = {ndex MAS 
DEY :X > 255 
BEQ HPQSR2 Si X < 512 
HPOSN] LDY £72 
ADC £1 
BNE  APGSN# «Toujours pris 
HPOSN2Z CMP  £$PB Ces où X>507 
BC  HPASNN3 
Cæ se 
BNE EHPA 
LDA £5F9 “Masque £0 sl X-511 
LDY £73 
BNE SETNSK 
HPA ADC £1 -Mote: Cv0 
IDY 2172 Mesque £{XL-SF941} 
BNE SETMCN :8i X entre 507 et 510 
HPOSN3 OLDY £$23 
ADC #s 
HPOSN4  INY 
HPOSNS SBC £7 
BCS  HPOSN4 
SETMSX STY  ÆANX 
TAX 4X = index dans MSKTBL 
LDA  MSKTBL-S5F9,X 
STA  HMASK 
HPOSN6  TYA 
AND £50F 
STA TD 
Tax 
LDA HE 
B8EQ HPOSEND Inutile de dcaler 
Qe ESP :blanc et noir 
6Ë£Q  HPGSEND 
CPX £0 
BEQ HPOSEND 
HFUSN?  PHA ;Ajuste autres coulrs 
RQL ‘Qui sont sur 4 bits 
PLA a l'interieur 7 bits 
ROL schaque octet page HER 
DEX 
BNE  HPASN? 
RPOSEND STA  HCOLI 
LDX TEMP 
RTS 
CLELELEEL EE LE LEELELELELELELEEEEZ ES 
Xæovs JSR GETBYT ‘Gestion camnd | 
CPX £5 de changeænt db mode 
BC SET +d'affichage 
Jæ IOFRR 
SETMO ILDA OPCIEL,X ;X = ecde (0-4) 





33 








RES E PRNSER CNP TU DIN SENTE EENTENSERE 


SEE 


RE - 


D —————————— 














STA IOBYTE HLUP LDA YP0S AOL LINNUM4+1I sÇarxy => bic 4 
RTS CÆæ  £192 On sort de l'ecran? RTS 
OPCTBL DFB S91,511,551,531,5B1 :Œ®cokeg STA BCS HCONT CELLZIIEII1111111111111111111111] 
ORA ECR, AND, LBA JSR  HPOSN ENDFILE EQU *+$800 
HPRINT JSR GETBYT ;Gestion cmde "PRINT" 1DY CNIR 
CPX £80 ADRCHR E *+1 
BCS ILLOËRR ITA $2000 :Valeur arbitraire 
OURCH ER JINYMASK 
E-4 CRE AND  £57F Supprine le bit? g g 
JSR  GETBYT BIT  CARMTE #Si-, -> dble lar9eur IC ter 
CEX £192 £SMI  DALCAR £ 5 
ms 1 ne ASCII.SET 
STX  OURCH HCONT mc YPOS Sortie de l'ecran, s 
JSR CHKCOM JSR 2NCADA -<cont. traiter autres 
D DEC CNTR :lignes afin conserver e : Le ne 
HP RINTZ ra Fc eee, Oescoeinit BNE ALUP sune vitesse constante Après avoir SAIS} ce fichier Sous 
BCC  RDOVAR ;c'est un nombre Ses Achage moniteur, vous Île sauvegarderez par : 
JSR ISLE scer. alpha ? LDA CHAR «Registres inchanges! 
BCS  RIVAR C'est une variable EDX  XFOS BSAVE ASCII. SET,A$5100, L$200 
Cæ £$22 IDY YPOS 
OT DU D 5100:00 00 00 00 00 00 00 00 
BEQ BPRINTZ ua Tout 5108:08 08 0B 0B 0B 00 0B 00 
APRTEND RTS JSR  PUTBYTE 5110:14 14 14 00 00 00 00 00 
OURCH DS 1 LDA PARITY 5118:14 14 3E 14 3E 14 14 00 
OURCV DS 1 PHA à 
an + mu PRET Ture 5120:08 3C 0A 1C 28 1E 0B 00 
7 CN Re 5128:06 26 10 08 04 32 30 00 
A ar BMI  OALCAR? Si -, mes adresse 5130:04 CA CA 04 2A 12 2C 00 
JSR FRMÆVL  ;Evalue farmule IX ane de auivane 5138:08 08 08 00 00 00 00 00 
BIT  VALTYP ST lie 5140:08 04 02 02 02 04 0B 00 
. eee Ut 5148:08 10 20 20 20 10 OB 00 
FOUT ;C'est un normbcæ 
RC SAUT - Fi PURE . 5150:08 2A 1C 08 1C 2A 08 00 
T@  HPRINTZ DBrEA RU 5158:00 08 08 3E 08 08 00 00 
STRNCOUT JSR  STROUTZ SU MENT 5160:00 00 00 00 08 08 04 00 
AE VUNTE PUTSYIE STA  $C001 Trensfere un octet 5168:00 00 00 3E 00 00 00 00 
ASTROUT a OURCH STA  $COS4 vers la page DHGR 5170:00 00 00 00 00 00 08 00 
ae ir 7 HS 5178:00 20 10 08 04 O2 O0 00 
SES EN Er en Fee 5180:1C 22 32 2A 26 22 1C 00 
STROUTZ JSR  FREFAC PUTAIN ORA £580 5188:08 0C 08 08 C8 OB 1C 00 
TAX IOBYIE STA  (RBASE),Y 5190:1C 22 20 18 04 O2 3E 00 
» = M FF cha neavine a el 5198:3E 20 10 18 20 22 1C 00 
es MO ET Le 5140:10 18 14 12 3E 10 10 O0 
ra Fr sp FNCADR MC  ADRCHR 5148:3E 02 LE 20 20 22 00 
HOUTT: ANE  INCADRZ 5180:38 04 02 1E 22 22 1C 00 
ou EE nor E 608 5188:3E 20 10 08 04 04 04 00 
my Cr 51C0:1C 22 22 1C 22 22 IC 00 
BE STRIUP Re be 51cCB8:1C 22 22 3C 20 10 CE 00 
ie , YPOS DS 1 51D0:00 00 08 00 08 00 00 00 
ss D ne INASK DS 1 51D8:00 00 08 00 08 08 04 00 
4 SE 51E0:10 08 04 02 04 08 10 00 
Le * MAYER PARA SETIMSK 1DY £0 :Inverse sq inversien 
TA Re 51E8:00 00 3E 00 3E 00 00 00 
PHA 51F0:04 08 10 20 10 08 04 00 
BM SIMS 
ES nes LDX ESFF 51F8:1C 22 18 08 08 00 08 00 
TAY Die _ TRS 5200:10 20 1C 20 3C 22 3C 00 
TON CR ÆFNDADR STA ADRCRR ‘Calcule adr. en sem 5208:08 14 22 22 3E 22 22 00 
F4 HEOQT. LDA £0 Era es re 5210:1E 22 22 LE 22 22 LE 00 
M STA ADRCHR51 dent code dans À 5218:1C 22 O2 O2 02 22 1C 00 
HPL  OUICHR2 ra | Freenleee (dans ANDCER 5220:1E 22 22 22 22 22 IE 00 
MC ORCH RE 5228:3E 02 02 1E 02 02 3E 00 
QUIEHR? LOR  OURCH sn 5230:3E 02 02 lE 02 02 02 00 
cæ 80 ROL  ADRCHR . 
Fe Rs ROL  ADRCHR41 5238:3C 02 02 02 32 22 3C 00 
FD 50 ROL  ADACHR 5240:22 22 22 3E 22 22 22 00 
STA  OURCH FE es 5248:1C 08 08 08 08 08 1C 00 
DA OURCH 
De ce 5250:20 20 20 20 20 22 1C 00 
er ADC  ADRCHR 5258:22 12 OA 06 OA 12 22 00 
CMP  £192 Arrive bas ecran ? É RpACRE range Fe 5260:02 02 02 02 02 02 3E 00 
F4 a ren revient en ligne 0 res Rae 5268:22 36 2A 2A 22 22 22 00 
TAX 5270:22 22 26 2A 32 22 22 00 
QUICHR3 STA ŒRCV 1 78:1 
QUICHR4  PLA :Restaure À,X, Y ee es . 8:1C 22 22 22 4 - 1Cc 00 
" nr ER 5280:1E 22 22 1E O2 O2 O2 00 
as 5288:1C 22 22 22 2A 12 2C 00 
_ STA  OCHRII 5290:1E 22 22 1E OA 12 22 00 
HOOUT STA CHAR :Affiche car. dont le a 5298:1C 22 02 1C 20 22 IC 00 
STX POS scede ascii est dans A 52A0:3E 08 08 0B 08 08 08 00 
sTY Pos aux ceords (X47, y D 100 S2A8:22 22 22 22 22 22 IC 00 
Ra ae STX ‘LINNOMI 5280:22 22 22 22 22 14 08 00 
LR NE LDX £7 5288:22 22 22 2A 2A 36 22 00 
LDY  £0 SRFTI AS 52C0:22 22 14 OB 14 22 22 00 
LDA CHAR pers 52C8:22 22 14 0B OB 08 08 00 
JSR SETIMSK ROLINNUM à 
EE Re esta per 52D0:3E 20 10 08 04 02 3E 00 
alias XPOS JSR ROLINNUM 52D8:3E 06 06 06 06 06 3E 00 
RCR  PARITY /Pericy=$80 si MV DEX 52E0:00 00 3C 02 02 3C 10 08 
princ. SEL SRFTI 
LDA CHAR JSR ROLINNUYI «Libere bit 7 Ier oct. 52E8:3E 30 30 30 30 30 3E 4 
JSR  FNDADR ;Calc. adr. caractere LSR  LINNUM 52F0:00 00 08 14 22 00 00 O 
LDX £8 RTS 52F8:00 00 00 00 00 00 00 7F 
STX  CNTR ROLINNUM ROL LINNUM “Decale 16 bits LINNUM 
10 
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Programme 
‘DEMO.START’ 


10 PRINT CHR$ (4) '"PR£3" 

20 PRINT CHRS$S (4}'"BRUNDHGR 

25 PRINT CHR$ (4} "BLOADASCII.SET, A$5100" 

27 POKE 768,0: POKE 769,80 

30 & HGR : TEXT 

35 POKE - 16368,0: PRINT “DHGR: Le Basic Do 
uble-Resolution" 

40 PRINT : PRINT : PRINT “Appuyez sur une to 
uche pour continuer ---> “;; GET A$ 

50 HOME : PRINT 

60 PRINT CHR$ (4}'"RUNDEMO" 


Programme 
‘DEMO’ 


10 PRINT CHRS (4) '"PR£3" 

15 PRINT 

30 & HGR2 : & LET 0 

34 POKE 772,0: & PRINT 5,30, "Pensez-vous av 
oir atteint les limites de votre Apple?" 

36 FOR I = 1 TO 1500: NEXT : & PRINT 15,60, 
"Eh bien non! Car voici..." 

40 POKE 772,128: & DEF 96;:62,127,127,127,12 
7,127,62,8 

50 FOR I = 1 TO 2500: NEXT 

60 FOR I = 191 TO 140 STEP - 1: & 
«ir D'A G-R 7": NEXT 

65 POKE 772,0: FOR I = 191 TO 160 STEP - 1l: 

& PRINT 34,1, "DOUBLE": NEXT 

67 FOR I = 191 TO 174 STEP - l: & PRINT 37 
» I, “GRAPHICS"": NEXT 

90 FOR I = 1 TO 3000: NEXT 


PRINT 30 


100 & CLEAR INVERSE : & CLEAR 0,255: & C 
LEAR 0,0 
105 6 HGR2 


110 FOR I = 15 TO O STEP - 1 


120 & HOME 20,59,0,1 + I 
130 #& CLEAR 16 * T + I,16 * I + I: NEXT 
140 & HOME 0,79,0,23 


150 POKE 772,128 


160 & PRINT 30,160,"D H G R" 
170 POKE 772,0: & PRINT 35,175,"Par Pascal 
CANTOT" 


180 GOSUB 900: & HPLOT 0,148 TO 559,148 

183 & HCOLOR= 0: & LET 2: & PRINT 30,132, 
"DOUBLE GRAPHICS": & LET O0 

185 FOR I = 1 TO 280: £& HPLOT 140 + I,1 TO 


140,17 / 2 + .5: NEXT 


186 & PRINT 22,30,"DE NOUVELLES": & PRINT 
25,50, '""POSSIBILITES" 

187 FOR I = 140 TO 1 STEP - 1: & HPLOT 420 
1 TO 420 - I * 2,1: NEXT 

188 & PRINT 37,85,"DE NOUVEAUX": & PRINT 4 


0, 105, “HORIZONS" 
195 FOR I = 1 TO 5000: NEXT 
200 & GR S5 
220 X = 20:C 68: GOSUB 920 
222 X = 30:C 72: GOSUB 920 
224 X = 40:C = 71: GOSUB 920 
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226 


228 


229 


240 


245 


290 
300 


310 


315 


318 
320 


325 
330 
390 
400 
410 
412 
414 
416 
418 
420 
422 
424 
430 
440 
445 
447 
450 
460 


465 
470 


471 
472 
473 
890 
900 


910 
920 


922 


925 


930 






























FOR X = 79 TO 50 STEP - l: & 
& DRAW 82 AT X,20 

POKE - 16336,0: IF X > 50 THEN & 

R= 5: & DRAW 82 AT X,20 

NEXT : PRINT CHR$ (7);:: & 
DRAW 82 AT 50,20 

VTAB 22: PRINT "VOICI ENFIN UN BASIC DOU 


BLE-HAUTE RESOLUTION file 
PRINT : PRINT “Pour Apple //e 128K, Appl 
e //e et Apple //gs"; 

FOR I = 1 TO 5000: NEXT 

FOR C = 15 TO O0 STEP - 1: & 
TI = l TO 500: NEXT I,C 

& HGR : POKE 772,128: & 
OM'S" 

POKE - 16368,0: PRINT : PRINT : PRINT : 
PRINT “Appuyez sur une touche pour conti 
nuer.s " 
FOR C = 15 TO 0 STEP - 1: & HCOLOR= C 
FOR I = O TO 559 STEP 20: &8 HPLOT 559 - 
1,0 TO 0,1 / 3.5: & HPLOT 559 = I,160 T 
O 0,160 = I / 3.5: & HPLOT 1,160 TO 559, 
160 = IT / 9.5: & HPLOT T,;0: TO 559,1 / 3, 


COLOR= 7: 
COLO 


COLOR= 15: & 


GR C: FOR 


PRINT 36,74,"P 


S: NEXT 

IF ( PEEK ( - 16384) > 128) AND C THEN C 
= l: POKE - 16368,0 

NEXT 


FOR I = 1 TO 2000: NEXT 

&  HGR2 : GOSUB 900: POKE 772,0 
& PRINT 20,100,"Et mème un Basic graphi 

que bien amélioré:" 
& PRINT 30,120,"- Générateur de caractèé 

res 2 tailles en DHGR" 
& PRINT 30,128,"- Caractères grephiques 
couleurs en Basse-résol." 
€ PRINT 30,136,"- Fonction SCRN en DHGR 
€ PRINT 30,144,"- Instruction de fenètr 
age" 
& PRINT 30,152,"- Couleurs mixtes pour 
le fond" 
& PRINT 30,160,"- Pseudo-couleur invers 
e 

& PRINT 30,168,"- etc! 
& HOME 30,50,3,10 

FOR I = ÿ TO. 30:C1 = INT ( RND (1} * 16 
J:C2 = INT { RND (1) * 16) 

& CLEAR C1 + C1 * 16,C2 + C2 * 16 
FOR J = 1 TO 500: NEXT 

NEXT 

& CLEAR 255,255: POKE 772,128: INVERSE 
: & PRINT 36,50, “DHGR'": NORMAL 
&  HCOLOR= INVERSE 

FOR I = O TO 191 STEP 4: & 
559,7 

FOR J = 1 TO 100: NEXT 

& HPLOT 0,I TO 559,I: NEXT 
HOME : FOR I = 1 TO 5000: NEXT 
TEXT : PRINT CHRS (4) '"PR£3": HOME : END 
&  HCOLOR= 15: &  HPLOT 0,0 TO 559,0 TO 
559,191 TO 0,192 TO 0,0 


HPLOT 0,1 TO 


RETURN 

FOR I = 1 TO 20: & COLOR= 7: £& DRAWC 
AT X,I 

POKE - 16336,0: IF I < 20 THEN & COLO 
R= 5: & DRANW C AT X,I 

NEXT : PRINT CHR$ (7)};:: & COLOR= 15: & 


DRAW C AT X,I - 1 
RETURN 








4180:20 BE DE 20 C2 41 8A A4 43C8:9E DO 09 6E 06 03 20 81  15E0:C9 FB 90 10 C9 FF DO 06 

Récapitulation 4188.19 60 20 F8 E6 F0 50 80  43D0:00 4C DD 4320 F8 £6 8a  45E8:A9 F9 AO 49 DO OF 69 O1 
À : 41C0:E7 60 20 F8 E6 EO 30 BO 43D8:48 20 4C E7 68 86 51 85 45F0:A0 48 DO 09 AC 23 69 05 
DHGR 41C8:DF 60 20 F2 £2 20 £3 DF  43E0:50 A5 23 OA OA OA 8D 46 45F8:C8 E9 07 BO FB 84 ES AA 
41D0:AA 4C 28 EB A5 30 8D A7  43E8:41 A5 20 18 65 21 8D 51 4600:BD B9 r4 85 30 98 29 OF 

41D8:41 20 64 F8 8D 50 CO 8D 13F0:44 A5 22 OA On OA 8D 52  1608:66 19 AA AD 86 43 FO OF 


Après avoir saisi ce code 41E0:0D CO 8D 7E CO 8D SE co 43F8:44 BD 5E CO AD 52 44 20  4610:C9 FF FO O8 EO 00 FO 07 
sous moniieur, vous le 41E8:80 53 CO 80 56 co 80 00  4400:A7 45 A5 20 85 18 AO 00  4618:48 2A 68 2A CA DO F3 8D 
sauvegarderez p& : 41F0:CD AS 30 85 19 20 c8 42  4408:AD 52 44 4A 90 O1 CB B9 4620:50 44 A6 19 60 20 F8 E6 
BSAVE DHGR,AS4000, 41F8:A9 00 85 18 AS 18 20 47  4410:50 00 85 19 &D 01 cO 8D  4628:E0 05 50 03 4C 39 EI BD 
4200:FB A5 30 AO 27 8D 05 co 4418:54 CO A5 18 4a BO 03 gp  4630:36 46 8D 73 47 60 91 11 

LSTFS 4208:A5 30 91 26 8D 04 CO A5 4420:55 © A8 2C 06 03 30 1F 4638:51 31 81 20 F8 E6 EO 50 


4210:19 91 26 88 10 Er E6 18  4428:A5 19 91 26 2A 26 19 €6  1640:B0 2A 8E 6A 46 20 &E DE 
4000:4C 45 40 4C D4 41 4C 63 4218:A5 18 C9 14 90 DE AD 47 4430:18 A5 18 CD 51 44 90 Dr  648:20 F8 E6 EO CO BO 1D &E 
4008:42 4C 24 42 4C AB 42 4C  4220:41 85 30 60 48 A9 91 8D 4438:EE 52 44 AD 52 44 CD A6  1650:6B 46 À BE DE 20 87 00 
4010:B7 42 4C 64 FB 4C FO 42  4228:9C 42 68 20 63 & A9 B1 4440:41 90 B9 8D 54 CO 60 81  4658:F0 OF 90 13 20 7D EO 80 
4018:4C A9 43 4C BB 43 4C 54 4230:8D 9C 42 A5 2E 49 FF 85  4448:26 49 7F 91 26 38 BODF  1660:0E C9 22 FO OR C9 BB FO 
4020:45 4C AA 44 4C 53 44 4C 4238:19 AD A7 41 25 2E C9 10 4450:00 00 OC 48 A9 81 8D 82 4668:EC 60 00 00 4C 99 E1 A9 
4028:71 43 4C DD 43 4C Ea 46  4240:90 04 4A 4A 4A 4h 2C 07  4458:45 68 20 54 45 A2 91 8  1670:00 85 52 20 78 DD 24 11 
4030:4C 89 46 4C 98 47 4C 2F  4248:03 10 13 AO 00 85 29 0a  4460:82 45 25 30 F0 04 A9 OJ  4678:D0 03 20 34 ED 20 92 46 
4038:46 4C A1 41 4C AI 41 4C  4250:0A OA OA 05 19 D9 D3 42 4468:38 24 18 60 20 87 00 c9  4680:4C 55 46 20 95 46 4C 55 
4040:A1 41 4C A1 41 AO 02 B9 4258:F0 03 C8 10 FB 98 29 0F  4470:C1 F0 OF 20 &D 45 20 54 4688:46 8E 6A 46 8C 68 46 4C 
4048:51 40 99 F5 03 88 10 F7 4260:C9 01 60 4A 08 4E 07 03 4478:45 20 87 00 FO 2B C9 C1 4690:9B 46 20 E7 E3 20 00 E6 
4050:60 4c 59 40 AS 2E AC A1  4268:20 47 F8 28 AS 30 48 A9 1160:D0 27 20 B1 00 20 8D 45  46$E;AR FO CE AO O0 BI SE F0 
4058:41 20 87 00 852E A2 00  4270:0F 90 02 A9 FO 8S 2E 98  4488:8E A6 44 GC A7 44 BD A8  46A0:CB 20 AB 46 CA FO C2 CB 
4060:BD 81 40 FO EF CS 2E FO  4278:48 8D O1 C0 8D 54 CO 4  4490:44 84 9D A8 8A A6 9D 20  Ÿ6AB:DO F3 60 8D 8A 47 98 48 
4068:03 E8 10 F4 8A OA AA BD  42B0:A8 RO OF 28 6 07 03 60  4498:AA 44 AE A6 44 AC A7 44  680:8A 48 AE 6A 46 AD 66 46 
4070:93 40 80 7r 40 BD 94 40  4288:55 CO 98 48 20 C8 4268  14A0:A0 AB 44 4C 76 44 0000  16B8:A8 AD BA 17 20 ER 46 EE 
4078:8D 80 40 20 81 00 4C C7  4290:AB B1 26 8D A7 41 45 30 41A6:00 60 48 38 ES E0 48 a  16C0:6A 46 2C 04 03 10 03 EE 
4080:42 88 8D AO 8E BF 93 BA  4298:25 2E 51 26 91 26 8D 54  44B0:E5 El 85 D3 BO CA 68 49  “6CB:6A 46 AD 6A 46 C9 50 30 
4088:92 8E B8 91 90 94 97 BD  42A0:C0 68 A9 68 85 30 18 60  44B8:FF 69 O1 48 A9 00 5 3  ‘6D0:14 A9 00 ED 64 46 AD 68 
4090:AA D5 00 13 41 4F 41 8C  42a8-86 2C 20 63 42 ca 2c 80  44C0:85 D1 85 D5 68 85 DO 85  16P8:46 18 69 08 CI CO 30 02 
4098:41 55 41 70 41 6C 44 38  4280:16 C8 20 77 42 90 F6 86  44C8:D4 68 85 E0 86 E1 98 18  46E0:A9 00 8D 66 46 68 AA 68 
40A0:46 59 43 22 41 87 43 A9  4288:2D 38 BO 02 69 01 48 20  44D0:E5 F2 90 04 49 FF 69 FE ‘6EB:AB 60 AD BA 47 &E 8B 47 
408:43 BB 43 E3 42 CA 40 C1  42C0:63 42 68 CS 2D 90 F5 60  44D8:85 D2 84 E2 66D3 38E5  46F0:8C 8C 47 BE A6 41 AD 8C 
40B0:43 25 46 B5 40 20 F8 E6  42C8:A5 30 29 OF A8 89 D3 42  44E0:D0 AA A9 FF E5 DI 85 1D %6F8:47 4E 8E 47 AO 00 AD BA 
4088:E0 04 80 54 86 18 8A OA  42D0:85 30 60 00 88 11 99 22 44E8:A4 ES BO 05 GA 20 22 45  1700:47 20 8F 47 4 A6 41 6E 
40C0:65 18 69 39 &D CB 40 4C  42D8:AÀ 33 B8 4 55 DD 66  44F0:38 A5 D4 65 D2 85 04 AS  4708:8E 47 AD 8A 47 20 98 47 
40c8:39 40 20 F8 E6 EO 50 BO  42E0:€E 77 FF 20 F8 E6 86 18  44F8:D5 E9 00 85 D5 08845  ‘710:A2 08 86 18 AD 8C 47 C3 
4000:3F 86 19 20 4C E7 EO 50  42E8:20 97 41 20 A8 41 A6 18  4500:20 5A 45 A4 ES 28 8 DO  /718:C0 80 16 20 A7 45 AC A6 
40D8:B0 36 E4 19 50 32 8A 38  42F0:6E BA 47 8D 8c 47 8c 88  4508:04 E6 1D FO 14 A5 D3 80  720:41 AD 00 20 4D BD 47 29 
40E0:E5 19 85 18 20 4C E7 8E  42F8:47 84 50 GA 20 9@ 47 20  4510:D8 20 D3 F4 18 A5 D4 65 *728:7F 2C 04 03 30 17 20 63 
40E8:6 41 E0 18 BO 22 20 4C  4300:8F 47 A9 O8 85 18 AD 00  4518:D0 85 D4 A5 DS 65 D1 50 ‘730:47 EE 8C 47 20 E1 47 C6 
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Note : Nous utiliserons dans cette 
chronique et dans les prochaines 
l'expression “ProDOS (8 ou 16) 
standard” pour désigner ces logiciels 
ProDOS non protégés, qu'on peut 
mettre dans n'importe quel 
sous-catalogue, configurables, qui 
acceptent les CDA et renvoient au 
Quit du ProDOS en sortie. 


Nouvelles 
du front 


Certains processeurs-carbone (autre- 
fois appelés cerveaux) doivent avoir 
une vitesse d'horloge un peu trop 
rapide. Ce n'est pas parce que jai 
écrit dans Pom's n° 34 que «/a 
technologie 8 bits seule est une 
technologie dépassée», ce qui est un 
fait aussi bien pour l'IBM que pour 
l'Apple //, qu'il faut jeter votre //c à 
la poubelle. La technologie n'est pas 
tout, et l'Apple // sera dépassé quand 
il ne sortira plus de logiciels pour 
lui. Lisez Apple !} for ever, et vous 
verrez que ce n'est pas demain la 
veille, Ce n'est pas non plus parce 
que le 65832 est en cours de 
développement, tout comme les 
accélérateurs GS, que nous allons les 
avoir demain. Apple a précisé tout à 
fait officiellement qu'il ne sortirait 
aucune nouvelle machine en 88. Pas 
de panique donc. 


Apple // for ever, cela ne signifie ni 
‘Apple // Plus for ever’ ni ‘Le 32 
bits 20 Mhz tout de suite”. Cela 
signifie seulement que l'Apple // ne 
mourra pas Comme est mort par 
exemple l'Atari 8 bits, veuf et sans 
héritiers (vous qui êtes tentés par une 
autre machine, ayez une pensée pour 
cet Atari-là). Le relais de l'Apple // 
est pris, par le GS, et le relais du GS 
sera pris un jour, par une nouvelle 
machine 32 bits, intégrant encore 
mieux Mac et Apple //, accélérée, 


Jean-Yves Bourdin 


etc. C'est cette durabilité qui a été 
invoquée comme raison décisive par 
l'aimée américaine pour acheter 4 000 
11IGS d'un coup pour ses écoles, quitte 
à diffuser chez les ‘G?° un esprit 
Wozniak qui n'est pas précisément 
militariste. 


Apple // for ever, c'est peut-être cette 
phrase de Bill Atkinson à propos de 
son logiciel Hypercard qui agite tant, 
et à juste titre, le monde du Mac en 
ce moment : «J'aimerais également 
voir une version de ce produit sur 
l'Apple !!, ce qui ne pose aucun 
problème au sein de la société Apple, 
et je suis prêt à aider le programmeur 
qui souhaite le faire» (Interview dans 
l'ouvrage de Danny Goodman ‘The 
Complete Hypercard Handbook”, chez 
Banwm). 


Apple // for ever, c'est enfin la bonne 
santé de la société Apple. Quelques 
chiffres : au cours du dernier trimestre 
1987, Apple USA 2 réalisé un chiffre 
d'affaires d'un milliard de dollars. Les 
analystes financiers prévoient un 
chiffre d'affaires de trois milliards et 
demi de dollars pour l'année 1988. 
Au cours du seul mois de décembre 
1987, Apple USA a vendu 40 000 
IIGS. Précisons encore que si pour 
l'ensemble de l'année 1987, les 
utilisateurs américains ont acheté 
145 467 IIGS, 109 680 d'entre-eux 
ont encore voulu à tout prix acheter 
un Apple //c et 75 298 un Apple 
Ile.. 


La deuxième Fête de l'Apple // (ni 
Mac World ni Apple Expo, une fête 
organisée par et pour les utilisateurs 
de l'Apple //), après le succès de celle 
de 87 à San Francisco, se tiendra à 
Boston du 20 au 22 mai. Si vous 
passez aux États-Unis à cette Saison, 
saluez Wozniak de ma part(il y sera), 
et tâchez de savoir où en est 
Hypercard pour Apple //. Mais 


pensez à vous inscrire à l'avance, on 
attend la foule. 


Une autre bonne nouvelle 
Activision, qui diffuse entre autres 
les versions US de GSWrite et 
GSPaint, a décidé de mettre au 
standard ProDOS ses logiciels de 
“productivité” et de “créativité” pour 
GS (mais pas les jeux). Il faut dire 
que la protection rendait les 
programmes totalement inutilisables 
sur les GS dotés d'un lecteur 3'5 
Unidisk Apple, ou de la carte UDC 
de Central Point. Et que Copy If 
Plus de Central Point 
Software, ainsi que Disk Util // 
de FWB (tous deux ProDOS 
standard), contiennent les paramètres 
nécessaires pour déprotéger les 
programmes GS sur 3'5. Data Pak 
Software a également mis au 
standard ProDOS la version 2.0 de 
Graphic Writer pour GS. Il est 
bon que la spirale protection/copie ne 
recommence pas sur les 3'5. Et cela 
n'empêche pas Activision de réaliser 
des profits confortables : 524 000 
dollars de bénéfices déclarés sur un 
chiffre d'affaires de 8 700 000 dollars 
pour la dernière année fiscale. 


D'autres, comme Styleware 
(Multiscribe GS 3.0), ou 
Electronic Arts (Deluxe Paint //), 
ont une autre formule : la disquette 
que vous achetez chez votre vendeur 
est protégée, mais en renvoyant 10 
ou 20 dollars avec votre carte 
d'enregistrement à l'éditeur, vous avez 
une version ProDOS standard (mais 
numérotée, avec vos coondonnées sur 
la disquette). Mon conseil : incluez 
ce supplément dans votre budget pour 
ce logiciel, et considérez la version 
protégée comme une version de test, 
juste pour voir si le programme 
marche sur votre configuration. 
Attendez pour utiliser régulièrement 
le programme de pouvoir #availler 
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avec une copie de la version standard. 
Cette formule est un peu compliquée, 
mais elle a sans doute de l'avenir, car 
elle permet à l'éditeur de lutter contre 
le piratage sans gêner l'utilisateur. 


AppleWorks n'est plus un produit 
Apple : Apple ne vend plus de 
logiciels. Ceux qu'il réalise seront 
désormais donnés avec les machines. 
Les autres ne seront plus vendus ni 
supportés par Apple, mais par sa 
filiale Claris. Il s'agit de mettre les 
logiciels d'origine Apple sur un pied 
d'égalité avec les autres produits. 
Utilisateurs d'Apple Works 1.4, c'est 
désormais à la dynamique société P. 
Ingénierie, qui est aussi Claris 
France, qu'il faut vous adresser. 

Après toutes ces bonnes nouvelles, 
on me pardonnera un petit coup de 
griffe. Le fétichisme, dit le 
dictionnaire, est «une forme de 
superstition primitive consistant à 
attribuer des pouvoirs humains ou 
surnaturels à des ob jets inanimés ou 
à de simples symboles». 
L'informatique, pourtant fille de la 
pensée rationnelle moderne, ne 
semble pas délivrée du fétichisme des 
logos, sigles et autres gris-gris, si 
l'on en juge par la bataille juridique 
engagée par MicroPro, éditeur du 
traitement de textes WordStar, 
contre MicroProse, éditeur de jeux 
comme F15 Strike Eagle. En 
conclusion de cette bataille, 
MicroProse s'engage à changer de 
sigle dans les deux ans, et MicroPro 
s'engage à ne jamais utiliser le sigle 
MicroProse. Devinez aussi pourquoi 
GS Com est devenu VS Com... 


Dernière minute : une dépêche datée 
du 31 mars à minuit nous apprend 
que Citroën a déposé un recours 
contre Apple France pour lui faire 
renoncer au sigle «GS» que Citroën 
avait déposé pour ses automobiles... 
Le bruit court également que 
Georges Marchaïis et Lionel 
Jospin, réconciliés pour le second 
tour de l'élection présidentielle, 
auraient décidé d'attaquer ensemble 
IBM France pour utilisation 
abusive des sigles «PC» et «PS»... 


Toujours plus 


Avec le DOS 3.3, ProDOS, CP/M, 


le Pascal UCSD, et j'en passe, les //e 
et //c n'avaient toujours pas accès à 
un système d'exploitation qui soit 
directement graphique-souris, sans 
l'intermédiaire d'un programme, C'est 
maintenant chose faite avec GEOS, 
de Berkeley Softworks. Pour 70 
dollars, vous avez un système 
d'exploitation style Macintosh, un 
traitement de textes Wysiwyg, un 
logiciel graphique, des accessoires de 
bureau, un correcteur, des utilitaires 
de conversions de fichiers et 
d'impression (sur Laser entre autres). 
D'où sortent-ils, ceux-là ? Eh bien, il 
existe un ordinateur 6502 8 bits, 
technologiquement dépassé, mais 
auquel ses utilisateurs sont si 
attachés que les programmes 
continuent à sortir en grand nombre 
et à bon marché. Avec son moniteur 
intégré et l'Assembleur Merlin de 
Glen Bredon, on peut presque tout lui 
faire faire. Vous l'avez reconnu, 
c'est. le Commodore 64 ! La 
quantité de logiciels sous GEOS y 
est impressionnante : bienvenue sur 
Apple //! 


Aveugles, lisez attentivement ceci. 
(ND.L.R. : excusez-le...) Les cartes 
Valentine et Sonolect permettent 
de faire parler l'Apple // et de lui faire 
lire l'écran à haute voix. Avec le 
traitement de textes Gribouille 
Sonolect, vous avez un ensemble 
micro-informatique parfaitement 
fonctionnel, la carte Valentine 
semblant avoir atteint le niveau qu'on 
pouvait en attendre (lire notre essai 
dans le numéro 31 de Pom'’s). Prenez 


contact avec l'Association 
Valentin  Haüy et le Club 
Micro Son. 


À la sortie du câble couleur de votre 
{/c, de la carte couleur de votre //e ou 
JL+, du câble GS/Péritel, il y a une 
prise Péritel qui vous permet de le 
brancher sur votre téléviseur, 
d'accord ? Maintenant, regardez bien 
votre magnétoscope : tiens, il a aussi 
une entrée Péritel ! Vos souvenirs de 
vacances sur vidéo-cassettes sont 
sympas, mais manquent de 
présentation ? Votre vidéothèque 
comporte d'indésirables séquences sur 
les lessives au milieu des films ? 
Enregistrez donc les images de votre 





Apple ! Avez-vous essayé le 
kaléidoscope de Print Shop 
(Broderbund) ou les images de 
Deluxe Paint (Electronic Arts) 
sur vos cassettes ? Il y a bien entendu 
au moins un éditeur qui s'est rendu 
compte que l'Apple // (pas le Mac 
Plus, hein coco, l'Apple // 
seulement) était un excellent 
générateur de banc-titres, c'est 
Electronic Arts avec Video 
Title Shop. Mais tous les 
programmes graphiques et toutes les 
images en couleurs conviennent. Et 
Beagle Screens de Beagle Bros 
permet des présentations très drôles, 
avec même de charmantes petites 
animations. 


Vous pouvez d'ailleurs faire bien 
d'autres choses avec un 
magnétoscope, une caméra, un 
téléviseur, un lecteur de disques 
compacts et un Apple // : nous en 
parlerons une prochaine fois. En 
attendant, regardez donc si votre 
magnétoscope n'aurait pas une 
télécommande mécanique, qu'on 
pourrait remplacer, par exemple, par 
un cordon qui le relierait à l'Apple 


M... 


La Publication Assistée par 
Ordinateur (PAO) n'est pas une 
exclusivité du Mac (même s'il faut 
reconnaître qu'il y est le meilleur). 
Pom’s consacrera un jour une étude à 
la PAO sur Apple //. Je me 
contenterai donc de mentionner ici 
trois logiciels qui font désormais 
partie des indispensables : 


° Print Magic, d'Epyx, est le 
premier vrai concurrent (successeur ?) 
de Print Shop de Broderbund. 
Interface graphique-souris, bureau et 
accessoires, même sur un J[+, il 
utilise les polices de caractères de 
Fontrix, les dessins Apple, Print 
Shop ou Newsroom, est doté d'un 
excellent atelier graphique, permet de 
faire énormément de choses avec 
facilité et élégance. Bien entendu, il 
n'est pas protégé. Dans ces 
conditions, je n'ai trouvé qu'une 
critique à lui faire : pourquoi diable 
fonctionne-t-il sous DOS 3.3, et non 
sous ProDOS ? 

- The Graphics Manager, de 
On Three, (ProDOS 8 standard) 
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vous permet d'organiser votre page 
imprimée point par point en 
graphique. Vous pouvez imprimer 
tous les dessins (HGR et DHGR) que 
vous voulez, dans la taille que vous 
voulez (agrandissement et réduction à 
volonté), à la place que vous voulez 
sur la page. Je ne me sers plus que de 
lui pour imprimer mes graphiques. 

°  Publish-It !, de Timeworks 
(ProDOS 8 standard), est vraiment 
PageMaker sur Apple //. Il utilise 
l'interface Mac, les polices de 
caractères Mac/GsS (y compris sur //c 





HyperPomme 


Macintoshiste, Appledeuïste ! L'assistance téléphonique du 
Club Apple n'est plus ce qu'elle était mais les techniciens issus 
des SIG demeurent : ils se sont regroupés dans des associations 
régionales dont le but est de favoriser le contact entre les 
utilisateurs d'Apple et d'organiser des réunions. 


Renseignements et inscriptions auprès de François Pirisi, 
Fédération HyperPomme au(1)45 74 1340ou auprès de Jean 
Devaux. HyperPomme Paris, 16, bld Barbès 75018 Paris. 





et //e), et même la programmation 





orientée-ob jet du Mac. Vous pouvez 
utiliser vos six disquettes 3'5 de êtes suffisamment nombreux à le 
polices Mac/GS du domaine public souhaiter, Pom’s pourra peut-être en 
diffusées par l'Apple Coop avec organiser la diffusion, comme nous 
Publish-it à condition de changer leur le faisons dé jà pour le Mac. 

type de $C8 en $F7 (pourquoi cette 
bizarrerie ?). Il pennet une mise en 
pages impeccable des dessins et du 
texte, et offre une impression 
d'excellente qualité. En attendant un 
Springboard Publisher qui, à 
l'heure où j'écris ces lignes, fait 
toujours partie des programmes de 
l'Arlésienne, ce logiciel est 
véritablement une raison suffisante 
pour avoir un Apple //. Une seule 
critique, la même que celle d'Éric 
Weyland dans Pom'’s 34 à propos de 
Time Out Superfonts : vivement 
l'éditeur de polices GS ! 


Apple IIGS Fonts : six disquettes 
3'5 de polices Mac pour le GS, mais 
aussi pour //e et //c (avec des 
programmes comme Time Out 
Superfonts, Publish-It !, ou 816 
Paint //e), Apple Coop. NB : tous 
les autres programmes énumérés 
ci-dessous sont en 5'25. 
Diversi-Copy 3.5, Diversi- 
Cache, Diversi-Key, Diversi- 
Hack : Share-ware de Bill 
Basham, indispensables à tous les 
possesseurs de GS (voir Apple // for 
ever de Pom’s 34), BRAC. 
Diversi-Dos version 4.1-C, la 
. dernière version du DOS 
Le mange-disques ultra-complet et ultra-rapide de Bill 
Basham, shareware, BRAC. 
DiskWorks, excellent éditeur de 
blocs sur tout disque ProDOS diffusé 
en shareware par Living Legend 
Software. 
ECP8, interpréteur pour ProDOS 
style Unix, shareware, BRAC. 


Les logiciels Domaine Public pour 
Apple // ont souvent une mauvaise 
réputation, à cause de l'héritage, qui 
fait encore circuler énonnément de 
disquettes préhistoriques. Mais si on 
cherche dans les disquettes récentes, 
on peut trouver de l'or, aussi bien 
dans le domaine public proprement 
dit que dans le ‘shareware’ (mode de 
diffusion de logiciels par copie libre 
d'une version parfaitement 
fonctionnelle du programme : on 
essaye le programme et on paye 


ensuite directement à l'auteur). En | : pe 
voici une liste partielle, Life Like, un excellent “jeu de la 


essentiellement puisée dans les vie” €n ProDOS, shareware, BRAC. 
logiciels de l'Apple Coop et du P8 Programs, très bon disque 
Big Red Computer Club domaine public du BRAC, contenant 
(BRAC). Si certains vous six utilitaires ProDOS indis- 
intéressent, dites-le nous : si vous pensables. 


MousePrintz, qui patche 
Mousepaint pour le faire imprimer 
avec 80 imprimantes et 70 cartes 
d'interface différentes, et lui donner 
un bon paquet de possibilités supplé- 
mentaires, shareware, BRAC. 
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Squirt, un sélecteur de programmes 
très honnête pour ProDOS 8, diffusé 
en shareware par le BRAC pour 
ceux qui ont le tort de ne pas avoir 
SuperMacroWorks et son Bird's 
Better Bye. 

BLU, Binary Linking Utility, 
excellent utilitaire pour ajouter des 
routines “&” relogeables à tout 
programme Applesoft, diffusé en 
domaine public par le BRAC avec 
nombre de routines. 

FredWriter, le traitement de textes 
complet sous ProDOS compatible 
AppleWriter, domaine public de 
l'Apple Coop. 

AMDOS 3.5, un des meilleurs 
Dos 3.3 pour disques 3'5, de Gary 
Little, en shareware au BRAC. 
ImageWriter Utilities, excellent 
disque sous DOS et ProDOS pour 
télécharger des polices, faire des 
copies d'écran, etc. sur Imagewriter I 
et IT avec carte Super Série ou port 
1/e (port GS exclu), domaine public 
du BRAC. 


Sans compter une foultitude de 
disques de dessins et de bordures pour 
Print Shop, dont certains ont une 
qualité professionnelle, et tous ceux 
auxquels je ne songe pas en ce 
moment. 


Pom'’s publiera peut-être un jour une 
étude sur les logiciels de décision 
graphique (camemberts, histo- 
grammes, courbes, etc.) pour 
Apple //. Je me contenterai 
aujourd'hui de signaler (outre Time 
Out Graph, voir Pom'’s 34), trois très 
bons programmes récents au standard 
ProDOS : 





EE 


Q——————————————— 
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Visualizer, de PBI, existe en 
version GS et en version //e - //c. 
Quick Chart, de Third Wave 
Technology, et Graphic Edge, 
de Pinpoint Publishing, 
marchent en ProDOS 8 sur //e, /{c, 
IIGS. J'avoue un faible pour Graphic 
Edge, pour sa programmation 
orientée-objet, 


Ce bon vieil Applesoft : un des plus 
vieux Basics qui soient, des limites 
rédhibitoires.. et pourtant non 
seulement vous et moi continuons à 
programmer avec lui, mais il dispose 
aujourd'hui d'une batterie de 
programmes qui en font, en fait, un 
excellent Basic. Deux explications à 
cela : d'abord, tout simplement, c'est 
le seul langage qui soit dans la Rom 
de tous les Apple //. Ensuite, c'est un 
langage ouvert, qu'on peut compléter, 
et qu'on connaît dans les moindres 
récoins (Merlin 8/16, de Glen Bredon 
chez Roger Wagner, est accompagné 
d'un programme qui sort sur 
imprimante 150 pages de listing 
source commenté de l'Applesoft qui 
est dans votre machine, y compris le 
relevé et l'explication de chaque bug). 


Tâchons donc de voir avec quels 
outils nous allons continuer à 
programmer en Applesoft en 88. 
Comme il n'est pas question de faire 
un tour d'horizon complet de tous les 
utilitaires, je me contenterai de ceux 
qui sont à mon avis les meilleurs, les 
plus récents, et fonctionnent en 
ProDOS standard (la plupart 
fonctionnant aussi sous DOS). 


Commençons par le commen- 
cement: l'éditeur. Vous êtes 
peut-être habitué à GPLE de 
Beagle Bros ou à Gale de 
Microsparce qui sont parmi les 
meilleurs. Ils sont aujourd'hui 
surpassés, par Program Writer de 
Software Touch - Beagle Bros, 
qui utilise des commandes et une 
interface type AppleWorks, permet 
les macro-commandes, et tout ce dont 
on peut avoir besoin pour écrire un 
programme. Surtout, sur //e, //c ou 
11GS, il se loge dans un recoin (la 
carte langage de la mémoire 
auxiliaire, là où se loge aussi 
SuperMacroWorks) où il ne gêne 


_ A 


nullement l'exécution du programme 
Basic : c'est strictement comme s'il 
ne prenait aucune place en mémoire. 
C'est d'ailleurs pourquoi il est le seul 
éditeur compatible avec le Beagle 
Compiler : pas étonnant, quand on 
sait que les deux ont le même auteur, 
Alan Bird. 


Une fois votre programme écrit et 
testé, D Code, de Beagle Bros, 
vous aidera à tracer, comprimer, 
optimiser votre programme du point 
de vue de l'encombrement mémoire et 
de la vitesse. Je ne m'étendiai pas ici 
sur les fonctions de cet utilitaire 
indispensable, il me suffira de 
nommer son auteur : Alan Bird... 


Enfin, votre programme une fois au 
point, vous pourrez avoir envie de le 
compiler pour accélérer sa vitesse 
d'exécution. Sous ProDOS, un seul 
programme vous le permet, de façon 
splendide c'est le Beagle 
Compiler d'Alan Bird (encore 
lui), publié par Beagle Bros 
(encore eux). Je n'épiloguerai pas sur 
ce programme : si Pom'’s s'est 
‘décarcassé’ pour diffuser ce 
programme en France, c'est qu'il y a 
une raison ! 


La seconde source, ce sont les 
extensions & qui sont écrites en code 
relogeable, qui peuvent fonctionner 
sans changement à n'importe quel 
emplacement mémoire (pour les 
techniciens : qui n'utilisent ni JMP 
ni JSR internes). Le plus souvent, 
ces routines sont collées de façon 
invisible au bout du programme 
Applesoft lui-même. J'en connais 
deux. D'abord le BLU (Binary 
Linking Utility) diffusé en domaine 
public par le BRAC (voir ci-dessus). 
Ensuite la série des Toolbox de 
Roger Wagner : Wizard Toolbox, 
Database Tooïlhox, Video 
Toolbox, Chart and Graph 
Toolbox. Avec cette série, vous 
pouvez pratiquement tout faire en 
Applesoft, sauf peut-être un serveur, 
mais pour cela il y a Pom _Link. 


Je connais des utilisateurs qui 
cherchent désespérément le 
programme rarissime qui fera la 
chose qu'ils sont seuls au monde à 
vouloir faire sur l'imprimante qu'ils 


sont seuls au monde à utiliser avec la 
carte d'interface qu'ils ont, À tous 
ceux-là, la série des Toolbox offre la 
possibilité d'écrire eux-mêmes leur 
programme, ce qui est la seule 
solution. 


Bien entendu, n'oublions pas qu'une 
des extensions les plus naturelles de 
l'Applesoft, ce sont les commandes 
supplémentaires ajoutées à Basic 
System. Là encore, la première 
source, c'est la collection de Pom's : 
n'oubliez pas, vous avez les sources. 
J'y ajouterai une seconde source : 
ProCommand de Glen Bredon, 
diffusé par l'Apple Coop, non 
seulement parce qu'il offre une belle 
série de commandes, mais aussi un 
excellent éditeur très complet. 


Il y a bien un logiciel qui pourrait 
dans une certaine mesure être 
comparé à un compilateur sous 
ProDOS. Il s'agit de Micol Basic 
de Micol Systems. Mais, et 
Micol est le premier à le dire, il ne 
s'agit pas d'un compilateur 
Applesoft, mais d'un autre Basic, 
incluant une grande partie de 
l'Applesoft, mais aussi de 
nombreuses fonctions nouvelles. Il 
faut programmer directement en 
Micol Basic, plutôt que réécrire un 
programme Applesoft existant, pour 
tirer profit de ce logiciel. Il serait 
terriblement lourd, long et 
encombrant pour qui voudrait 
l'utiliser comme compilateur 
Applesoft. En fait, c'est à d'autres 
“Super Basics”, tels que ZBasic de 
Zedcor, qu'il doit être comparé (ce 
que nous ferons dans un prochain 
numéro). 


Ceci dit, si vous souhaitez étendre les 
fonctions de l'Applesoft, une foule de 
programmes vous le permet : relisez 
la collection de Pom'’s, et vous 
constaterez que les commandes 
Applesoft les plus puissantes sont & 
et Cali... Le problème en fait est de 
faire tenir ensemble tous ces ajouts 
hétéroclites. Je me limiterai donc ici 
aux programmes qui pernettent la 
cohabitation de routines différentes. 


La première source de ces extensions 
de l’Applesoft, c'est. la collection 
de Pom'’s. Non que les programmeurs 
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de Pom's soient tous des Alan Bird, 
mais réfléchissez simplement à ceci : 
avec Pom’s, vous avez les sources 
des routines assembleur (même pas 
besoin de les taper, ils sont sur la 
disquette). Vous pouvez donc 
déplacer, modifier, ajuster, mettre 
ensemble ces routines. C'est quand 
même plus pratique que de passer des 
heures à désassembler avec Sourceror 
de Merlin, ce qui est la seule 
possibilité que nous laissent la 
plupart des programmes du 
commeite, 


Terminons enfin par le meilleur, et 
de très loin, programme d'extension 
de l'Applesoft, un logiciel intégrateur 
qui vous permet d'utiliser n'importe 
quoi (lignes de Basic, routines 
assembleur ou autres) comme 
sous-routine ou comme procédure 
d'un programme Applesoft, avec 
gestion des erreurs, gestion de la pile, 
passage de paramètres, etc. Cet 
exploit de programmation s'appelle 
Probasic, et vous vous doutez de 
qui il est : d'Alan Bird bien sûr ! Le 
plus fort, c'est que ce programme 
n'est même pas vendu séparément par 
Beagle/Software Touch : il est mis 
en prime, comme ça, négligemment, 
sur la face 2 de Program Writer ! 


Un demier mot pour une opinion 
personnelle : eh bien oui, je croyais, 
avant d'écrire ces lignes, que 
l'Applesoft était un Basic dépassé. 
Mais ce que ce travail m'a rappelé, 
c'est que cette notion purement 
technique de dépassement ne signifie 
rien du tout face à ce qu'Hervé Thiriez 
appelait «l'inventivité des 
développeurs» dans Pom’s 34. Il se 
trouve que c'est l'Applesoft qui est 
dans la Rom de l'Apple //. Et il se 
trouve que c'est sur Apple // que 
programment les Glen Bredon et les 
Alan Bird. En conséquence, 
l'Applesoft est devenu un des Basic 
les plus puissants et les plus riches, 
à un point qui étonne. Gérer les 
outils du GS comme Quickdraw II 
avec un Applesoft qui ne connaît 
même pas la Double Haute 
Résolution, ce n'est pas un peu 
délirant, franchement ? Même Apple 
(sagement sans doute) ne s'y est pas 
risqué dans la Rom du GS. Eh bien ça 
existe, c'est dans Pom’s 33 (QD 
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Basic de LE Pham Hiep) ! 
Alors. Applesoft for ever ? 


Sous le capot 


Vous voulez connecter deux 
ordinateurs différents à trois 
imprimantes différentes, mettre une 
imprimante parallèle au bout d'un 
port série ou le contraire, relier votre 
ordinateur à plusieurs écrans, 
connecter une table traçante, une 
imprimante à aiguilles et une 
imprimante à marguerite sur le même 
port en choisissant par ‘switch’ entre 
les trois ? Bref, vous avez un 
problème de connectique ? C'est 
exactement le genre de choses qui fait 
perdre des heures et des jours de 
recherche, parce que c'est 
TOUJOURS techniquement possible, 
mais qu'on ne trouve JAMAIS le 
câble tout fait et même JAMAIS 
toutes les pièces nécessaires dans la 
même boutique ! Un jour vous 
remercierez Pom'’s de vous avoir 
trouvé l'adresse de la maison (aux 
USA) qui peut résoudre tous ces 
problèmes, et connecter n'importe 
quoi à n'importe quoi : Support 
Systems International. Si vous 
connaissez une adresse équivalente en 
Europe, envoyez-la nous ! 


Acheter les programmes américains 
directement aux États-Unis, cela peut 
se défendre (pour qui accepte 
d'envoyer outre-Atlantique son 
numéro de carte bleue et sa 
signature !)}. Mais pour le matériel 
(cartes mémoire, interfaces, lecteurs 
de disques, etc.), la notion de service 
après-vente en France prend tout son 
sens : il semble assez difficile 
d'imaginer un renvoi de votre disque 
dur outre-Atlantique au moindre 
pépin. 

Nos lecteurs ont donc été heureux 
d'apprendre dans Pom’s 34 qu'une 
société française, la Société Bré joux 
de Lyon, arborant sur son blason la 
noble devise «Apple // for ever», 
assure la distribution exclusive en 
France des produits du principal 
fabricant d'accessoires pour la gamme 
Apple //, Applied Engineering. «À de 
rares exceptions près — nous 
assure-t-elle — les nouveautés 


(matériels et patches) sont 
disponibles en France en même 
temps qu'aux USA à des prix... 
américains». 

On peut donc trouver en France la 
meilleure carte d'extension mémoire 
type Apple pour les Apple ][+, //e et 
II1GS, la carte Ramfactor, la carte 
Super-Série plus horloge Serial 
Pro, la carte d'interface parallèle 
Parallel Pro avec option buffer 
possible (GSphiles, n'oubliez pas que 
vous n'avez pas de port parallèle 
intégré, mais que votre port série 
inclut un buffer réglable de 2 à 
64Ko), une horloge pour //c, la carte 
PC Transporter, etc. Je rappelle 
aussi que la carte Z-Ram d'Applied 
Engineering est, avec la carte 
Multiram CX de Checkmate 
Technology, le seul moyen 
d'étendre la mémoire d'un //c 128Ko 
français. 


Deux informations supplémentaires : 

+ _attendez-vous à entendre bientôt 
parler d'une carte à numériser les 
images d'Applied Enginee- 
ring ; 

‘ si vous avez une carte 
Ramfactor, lisez l'article de 
Computist de Janvier 88 page 
17 avant d'y ajouter le 
Ramcharger pour maintenir la 
carte alimentée en permanence. 


Vous trouvez la résolution de votre 
/le insuffisante, même en double- 
haute résolution (560 x 192), Vous 
avez noté que le GS rajoute plein de 
couleurs, mais n'étend la résolution 
qu'à 640 x 200 maximum, ce qui 
n'est pas beaucoup plus. Le Mac 
vous attire, mais dépasse votre 
budget. Mettez donc dans votre //e 
une résolution de 640 (horizontal) par 
768 (vertical) : c'est plus que l'écran 
du Mac, et ça ne coûte que 400 
dollars (sans le moniteur, 
évidemment). Vous pourrez lire les 
disquettes Mac avec votre lecteur 3°5 
pour en récupérer les dessins. La carte 
remplace la carte souris du //e, elle ne 
prend donc pas un slot de plus (sur 
GS, cette carte fonctionne, mais elle 
est trop grande pour rentrer sous le 
capot !). Un très bon soft graphique 
accompagne le matériel. L'ensemble 
s'appelle The Graphics Toolkit, 
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et est vendu par Demco 


Electronics. 


Savez-vous qu'on peut facilement et 
rapidement transformer un Unidisk 
35 (hors garantie) pour //c et //e en 
lecteur externe pour le Mac ? I suffit 
de lui enlever ce qu'il a ‘en trop’ (à 
savoir la carte avec microprocesseur 
intégrée dans le lecteur qui prend le 
relais de l'unité centrale trop lente) 
pour transformer ce lecteur intelligent 
en lecteur bête. Il reste d'ailleurs 
pilotable par la carte UDC sur //e. Si 
des lecteurs souhaitent des précisions, 
qu'ils nous le fassent savoir. 

Les heureux possesseurs de lecteurs 
Apple 35 GS ne sont pas concernés : 
leurs lecteurs se comportent bêtement 
ou intelligemment selon la machine. 


Patchworks 


Si vous avez une imprimante Epson, 
vous n'ignorez sans doute pas 
qu'AppleWorks 1.4 a hérité de son 
grand frère US AppleWorks 2.0 un 
bug gênant qui interdit d'entrer le 
code ASCII 00 (Contrôle-à) dans la 
définition des codes de Mon 
imprimante. Le patch de Randy 
Brandt dans Patchmania étant un 
peu torturé, je préfère celui de 
Scarlett de Décembre 87. Le voici 
adapté pour Appleworks 1.4 VF: 
UNLOCK APLWORKS.SYSTEM A 
BLOAD APLWORKS.SYSTEM, AS$ 
2000, TSYS.1 
POKE 11768, 2504 
BSAVE APLWORKS.SYSTEM, AS 
2000, T25541 
Le patch suivant pour AppleWorks 
1.4 (adapté de la même source) est 
une surprise pour tous ceux qui ont 
les caractères souris. Essayez-le. 
UNLOCK APLWORKS.SYSTEM 
BLOAD APIWORKS.SYSTEM, AS$ 
2000, T$SFF.1 
POKE 11689, 64.1 
BSAVE APLWORKS.SYSTEM, AS 
2000, TSYS.1 
NB : si vous avez installé Super- 
MacroWorks, remplacez APLWORKS 
. SYSTEM par APLWORKS.SYS 
dans les deux patches ci-dessus. 
Faut-il rappeler qu'on ne patche que 
des copies, jamais l'original ? 


Le patch principal de ce numéro est 
carrément un programme : le 
programme SETUP.SYSTEM de 
Sean Nolan permet de donner à 
ProDOS 8 les possibilités 
d'initialisation de la machine avant le 
lancement du premier programme qui 
étaient jusqu'ici réservées à ProDOS 
16. Ce programme doit 
impérativement être le premier fichier 
système de la disquette portant le 
nom xxx. SYSTEM. Il sera donc 
automatiquement exécuté au boot par 
ProDOS. 


SETUP.SYSTEM commence par 
chercher sur la disquette un 
sous-catalogue appelé SETUPS. S'il 
ne le trouve pas, ou si ce 
sous-catalogue est vide, il passe la 
main au second fichier système 
xxx, SYSTEM de la disquette. Mais 
s'il trouve dans ce sous-catalogue des 
fichiers type BIN ou type SYS, il les 
exécute successivement dans l'ordre 
du sous-catalogue, ignorant les 
fichiers d'un autre type. Ensuite, il 
repasse la main au fichier 
xxx. SYSTEM suivant du catalogue 
principal. 

Bien sûr, il y a quelques contraintes à 
respecter : les fichiers type BIN du 
sous-catalogue SETUPS doivent se 
terminer par un RTS ($60), les 
fichiers type SYS par un appel au 
Quit du ProDOS. Bien entendu, les 
fichiers SYS doivent démarrer en 
$2000. Toute la place mémoire entre 
$800 et $SB8FF, ainsi que l'espace 
$200-$3EF, sont utilisables. Les 
pages $B9 à $BF sont réservées à la 
page globale de ProDOS et à 
SETUP .SYSTEMlui-même. 


Sean Nolan a mis ce programme dans 
le domaine public, dans l'idée qu'il 
constitue un STARTUP universel 
pour ProDOS 8. Ce programme sera 
particulièrement précieux à tous ceux 
qui doivent mettre en place un driver 
de carte horloge, initialiser un disque 
Ram (Ramworks, Checkmate, carte 
type Saturn), aux GSistes qui veulent 
installer leurs CDA au démarrage, 
etc. Désormais toute disquette 
ProDOS 8 devrait avoir le fichier 
SETUP.SYSTEM en premier fichier 
système, et contenir un 
sous-catalogue SETUPS. C'est en 
tout cas ainsi que se présenteront 
désonnais les disquettes ProDOS 8 














(3'5 et 5'25) de Pom’s. Rappelons à 
cette occasion que ProDOS 8 et Basic 
System n'étant pas, eux, du domaine 
public, il faut toujours les rajouter 
vous-même sur ces disquettes. 

Le listing étant trop long pour cette 
rubrique, c'est sur la disquette Pom's 
que vous trouverez le programme. Le 
source, modèle de programmation 
efficace en ProDOS, se trouve dans 
Call Apple de Novembre 87. 
Utilisez ce programme sans le 
modifier : c'est un nouveau standard. 
Ne croyez pas ceux qui vous disent 
qu'on peut le renommer ATINIT. 


Des bugs dans 
Pom’s ? 


Espérons que vous ne verrez pas trop 
souvent cette nouvelle rubrique dans 
Apple {! for ever : elle est destinée à 
corriger mes propres erreurs, merci 
aux lecteurs. Consolons-nous : quatre 
erreurs, quatre bonnes nouvelles. 


D'abord à propos de la carte 
Speedisk : pas d'incompatibilité 
avec le nouveau système du GS, et 
ProDOS 16 1.3. Les GSistes ne 
seront donc pas privés de turbo. 


Deuxième bonne nouvelle : la 
nouvelle version de la carte 
Universal Disk Controler de 
Central Point Software est 
débarrassée de la plupart de ses bugs 
et ne pose plus les problèmes 
d'encombrement de la première 
version, Si vous achetez la carte et 
un lecteur 3'5, vous avez la dernière 
version de Copy ][ Plus en prime. 

Troisième bonne nouvelle : la 
Société Bréjoux nous informe que 
la version de la carte P C 
Transporter d'Applied Engineering 
qu'elle diffuse (pour IIGS seulement 
pour le moment) est désormais 
capable de formater et démarrer 
directement les disquettes 3'5 en 
MSDos avec le lecteur Apple 3'5. 
Reste évidemment que 80% au moins 
des logiciels MSDos sont sur 5'25, il 
en est de l'IBM comme de l'Apple //. 
Réponse : Bréjoux fait la conversion 
pour ses clients. L'achat du lecteur 
5"25 MSDos Applied Engineering 
n'est donc pas indispensable. si les 
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applications MSDos que vous 
utilisez ne sont pas protégées. 

Enfin à propos de DDA, sœur 
française de l'APDA américaine : 
l'adresse publiée dans Pom’s 34 est 
celle du versant Mac. Le versant 
IIGS, c'est la société Prim'vert. La 
bonne nouvelle, c'est que le support 
technique de DDA est assuré pour le 
IIGS par “la Femme aux Clefs d'Or”, 
j'ai nommé Nicole Bréaud- 
Pouliquen. Réponse assurée les 
lundis, mardis après-midi et mercredis 
matin au 37 47 53 21 (province). 


Encore une partie 
et j'éteins 


Le jeu plante au 27e tableau. Mon 
vaisseau refuse de décoller. Je ne 
peux pas sortir des oubliettes. Tu 
copies les pistes impaires avec EDD3 
mode 5, les pistes paires avec 
Locksmith 4.1 synchro, et si ça 
plante tu recommences tout. Je n'ai 
pas la documentation. Je l'ai, mais 
elle est illisible. J'ai l'impression 
qu'il me manque une face. Il ne se 
charge pas sur mon //c... Ah le long 
et silencieux calvaire du pirate de 
logiciels de jeux ! Et tout ça pour. 
10 doliars ! 


Eh oui : les plus grands éditeurs de 
jeux ont aujourd'hui cette politique de 
vendre à prix bradés leurs jeux un peu 
anciens, mais de qualité, ceux, en 
gros, qui doivent faire partie de toute 
bonne logithèque. 10 à 15 dollars, ça 
ne met vraiment pas cher le prix de la 
vertu, du droit de rouspéter, et du 
confort d'un exemplaire original de : 
Summergames 1, Temple of 
Apshai Trilogy, The Movie 
Monster Game, World Greatest 
Baseball et Football Games, 
d'Epyx : Choplifter de 
Broderbund ; Six Gun 
Shootout, de SSI ; Sargon III, 
de Hayden Software ; Gato, de 
Spectrum Holobyte ; 
Adventure Construction Set, 
Age of Adventure, Archon I et 
11, Lords of Conquest, Movie 
Maker, Murder Party, Music 
Construction Set, One on 
One, Pinball Contruction Set, 





POKE 8929,2054 
POKE 9333,2054 
POKE 11665,2054 
UNLOCK SEG.M1.l 


LOCK SEG.M1.! 
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Realm of Impossibility, 
Seven Cities of Gold, Skyfox, 
Super Boulder Dash, tous 


d'Electronic Arts. (Prix relevés 
dans Nibble et InCider de Janvier). 


Ne croyez pas que je veuille vous 
dissuader de jouer aux pirates sur 
Apple // : Pirates ! de Micro- 
Prose (vous savez, ceux qui ne 
produisent pas WordStar), combine 
simulation, jeu de rôles et stratégie. 
High Seas, de Gardé Games of 
Distinction, vous fait commander 
de magnifiques vaisseaux et mener de 
très durs combats. Dans Plundered 
Hearts d'Infocom jeu d'aventures, 
en texte uniquement, vous êtes la 
belle Angélique, prisonnière des 
pirates. N'hésitez plus : hissez le 
drapeau noir… 

— Allô, Michel ? (Michel consent 
parfois à lâcher son joystick pour 
donner quelques brefs avis aux 
lecteurs de Pom'’s. Un expert). 


— Si vous avez aimé King Quest 
de Sierra On Line, vous aimerez 
plus encore son Space Quest, très 
bon en 8 comme en 16 bits. Par 
contre, la version 8 bits de World 
Games d'Epyx n'est pas du tout à 
la hauteur de son California 
Games. Jouez-y sur GS. Thunder 
Shopper d'Actionsoft est plus 
maniable comme hélicoptère que 
Tomahawk de Datasoft. Mais guider 
cette machine dans les airs est 
presque aussi difficile que piloter le 
Destroyer dEpyx sur l'eau. 
Heureusement, il a une option 





AppleWorks 2.0 et .] 


Dansle numéro 33 de Pom's page 67, Jean-Yves Bourdin proposait un 
patch pour remplacer le caractère ‘damier’ un peu rétro par le 
caractère 1 plus adapté pour symboliser un retour-chariot. Ce patch 
était conçu pour la version française 1.4. 

Voici le même, adapté à la version U.S.2.0: 


BLOAD SEG.M1, T0,A$2100, L$E00,B$6E004 


BSAVE SEG.M1,TO,AS$2100, L$E00,B$6E00.J 


Philippe Ayral 








d'entraînement : emportez la disquette 
au bureau. Wizardry IV de 
Sir-Tech est sorti : il faut 
réellement être devenu un expeit dans 
les trois précédents pour pouvoir y 
jouer. Alors, pour Dondra, très bon 
début d'une nouvelle série, les 
Questmaster, de Spectrum 
Holobyte pour Apple // et GS, 
commencez à jouer dès maintenant 
pour accumuler les points 
d'expérience. 

— Merci Michel, travaille bien. Je te 
rappelle dans deux mois. 


16 bits 


Maintenant que vous avez les 
nouvelles Roms, tapez £ sous 
moniteur : le moniteur lui-même et 
le Memory Peeker seront installés en 
CDA. Voici un mini-programme 
(Sean Nolan, Call Apple Février 
88) pour ProDOS 8 qui se charge 
d'installer automatiquement ces deux 
CDA au démarrage (si vous avez 
autre chose qu'un GS avec les Roms 
01, il ne fait rien). Vous le trouvetez 
aussi sur la disquette Pom’s 35 à sa 


place : dans le sous-catalogue 
SETUPS. 

CALL -1514 

*300 : 38 20 1F FE B0 0C 


8A DO 09 CO 01 DO 05 

A0 00 20 84 FE 60.1 
*BSAVE MONITOR.INSTALL, A 

$300, L$13 <RETURN> 


On trouve tout sur GS : vous pouvez 





Pom's n° 35 





63 








64 


même maintenant utiliser le disque 
/RAMS du GS comme disque Ram 
pour. le DOS 3.3, grâce au 
programme RAM 3.3 de RDC 
Inc. Vous pouvez ajouter jusqu'à 
huit disques Ram de 192Ko. Mais le 
patch pour le Ramdisque, plus le 
patch pour les 3'5, plus le patch pour 
le disque dur, plus vos patches 
habituels, je ne sais pas si ça fait un 
patchwork vraiment harmonieux... 


Enfin ! Possesseurs de GS et d'une 
imprimante non-Apple, vous allez 
enfin pouvoir imprimer vos images 
GS. La dernière version de 
816Paint, de Baudville, reconnaît 
l'essentiel des imprimantes et des 
cartes d'interface du marché. Je n'ai 
rien contre l'ImageWriter, mais une 
machine ouverte comme ie GS doit 
permettre à l'utilisateur de choisir ses 
périphériques. Espérons que les autres 
programmes 16 bits vont s'y mettre 
vite. 


Après la carte Memory Saver de 
Checkmate Technology, voici la 
carte Ramkeeper d'Applied 
Engéniering qui, elle aussi, permet 
de transformer une partie de votre 
disque Ram en disque Rom 
auto-alimenté, et de mettre deux 
cartes mémoire GS dans le même slot 
(vérifier que l'alimentation de la carte 
soit prévue pour notre secteur 220V). 
Supériorité : elle marche aussi avec 
la carte GSRam Plus d'AE, ce que 
ne permet pas pour l'instant 
Memory Saver. Mais attention, 
avec ces deux cartes, aux 
compatibilités entre les cartes que 
vous mettez et à la liberté du slot 7, 
sans parler des endroits bizarres où 
vous allez retrouver vos drives du 
slot 5 quand vous aurez à la fois un 
Ramdisk et un Romdisk. Si vous 
cherchez un disque Ram 
auto-alimenté qui ne mange pas la 
mémoire GS et ne déplace pas vos 
drives, songez à la carte Speedisk. 


À ce propos, certains GSmaniaques 
gourmands, se trouvant déjà à l'étroit 
avec 1 Méga, m'ont demandé de faire 
le point sur les cartes d'extension 
mémoire du GS. En fait, il y a une 
telle diversité de cartes et le prix des 
puces mémoire est si fluctuant (et 
dans le mauvais sens en ce moment) 


qu'il faudrait revenir sur la question à 
chaque numéro de Pom's. je me 
limiterai donc aujourd'hui à la liste 
des cartes et des fabricants (autres 
qu'Apple) que je connais, et à une 
liste des questions à ne pas oublier de 
poser à chacun avant achat. 


Fabricants : 

Applied Engineering (GS Ram, 
GS Ram Plus) 

Applied Ingenuity (GS Juice) 

AST Research (RamStack Plus) 

Checkmate Technology 
(Multiram GS) 

MDldeas (Ocioram) 

On Three (On Board) 

Orange Micro (Rampak 4 GS) 

Parallax (MegaRAM) 


Questions : 

— Jusqu'à combien cette carte seule 
peut-elle porter la mémoire du GS ? 
Etavec carte additionnelle ? Quel est 
le prix d'une carte additionnelle vide ? 
— Quel type de puces mémoire 
utilise-t-elle ? Combien le même 
vendeur vend-il aujourd'hui 1 Méga 
de puces de ce type ? 

— Puis-je installer sur cette carte les 
puces mémoire que j'ai déjà sur 
d’autres cartes {GS ou //e) ? Puis-je 
l'acheter avec OKo installé ? 

— La carte et ses additions 
laissent-elles le slot 7 entièrement 
libre ? 

— Supporte-t-elle un disque Rom ? 
De quelle façon ? Taïlle maximum de 
ce disque Rom ? Peut-on le protéger 
contre l'écriture ? 

— Supporte-t-elle l'accès mémoire 
direct (DMA) sans reconfiguration du 
Ramdisk ? 

— Des logiciels sont-ils fournis avec 
la carte ? Lesquels ? Ces logiciels 
sont-ils compatibles avec les cartes 
des autres marques ? 


La version 3.0 de Multiscribe GS 
(ProDOS standard dans la version 
déprotégée) de Styleware, 
qu'espérait Bernard Toméno dans 
Pom'’s 33, inclut un correcteur et un 
dictionnaire de synonymes, un driver 
d'imprimante Image Writer amélioré, 
de nouvelles capacités graphiques. 
S'y adjoignent également un premier 
volume de Font Library, un 


ensemble d'accessoires GS (CDA) 
appelé Deskworks (ProDOS 
standard). Et Styleware nous promet 
pour bientôt des drivers d'imprimante 
Epson pour Multiscribe GS. Il nous 
promet aussi pour bientôt un éditeur 
de polices de caractères GS. Peut-être 
allons-nous prochainement ne plus 
être contraints d'utiliser Multiscribe 
/le sur GS (qui en est d'ailleurs 
également à la version 3.0, la même 
que l'autre mais avec un correcteur, 
plutôt lent, en accessoire). 


Word Perfect 2.0 GS de Word 
Perfect Corporation (ProDOS 
standard) est maintenant le traitement 
de textes (non graphique) le plus 
puissant et le plus complet sur GS. 
Correcteur et dictionnaire de 
synonymes, enregistrement des 
macros en direct, indentation gauche 
et droite, coupure automatique des 
mots, tout y est. En plus, interface 
graphique-souris. Multiscribe ou 
Word Perfect ? Réponse : rien à faire, 
il faut les deux. 


À propos des ports série intégrés du 
GS : ce qui était possible pour 
AppleWriter (cf Patchworks dans 
Pom's 34), ne l'est en général pas 
pour les autres programmes qui 
refusent de marcher avec le port GS. 
En effet les programmes 
incompatibles sont ceux qui 
s'adressent directement aux puces de 
la carte Super Série ou du //c au lieu 
de suivre les protocoles d'interface 
définis par Apple. Je ne vois guère 
que deux solutions : ou bien se 
procurer une nouvelle version du 
programme avec un driver spécial GS 
(solution que je recommande pour les 
programmes de communication), ou 
bien mettre la carte Super Série qu'on 
a gardé de son //e ou racheté 
d'occasion à bon marché dans le slot 
1, et jouer du tableau de bord avant 
d'imprimer pour choisir entre SSC et 
port intégré. La plupart des 
programmes spécifiques GS acceptent 
d'ailleurs la Super Série dans les 
configurations. 


Non, ne protestez pas : ce n'est pas 
une faiblesse, mais une force du GS. 
Connaissez-vous beaucoup de 
fabricants d'ordinateurs qui poussent 
le respect de l'utilisateur jusqu'à se 
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débrouiller pour garder leurs 
nouveaux modèles compatibles avec 
les programmes anciens qui violent 
volontairement les règles du 
constructeur ? 


À lire 


«Ce bouquin est introuvable. Je m'en 

fous, je l'ai.» (Professeur Choron). 
Une des conséquences de la fin de la 
production des Apple //e et //c, c'est 
qu'un certain nombre de livres 
indispensables à tout possesseur 
d'Apple //, GS compris, ne seront pas 
réédités quand le stock sera épuisé. Si 
vous ne les avez pas encore, et s'il 
n'est pas déjà trop tard, pensez à vous 
procurer d'urgence : 


The Dostalk Scrapbook, par 
Tom Weishaar et Bert Kersey, 
chez Tab Books. 

Beneath Apple DOS, par Don 
Worth et Pieter Lechner, chez 
Quality Software. 


ProDOS, inside and out, par 
Dennis Dom et Tom Weishaar, 
chez Tab Books. 

Beneath Apple ProDOS, par 
Don Worth et Pieter Lechner, 
chez Quality Software. 

ProDOS advanced features for 
programmers, par Gary Little, 
chez Brady Communications- 
Prentice Hall, 

Inside the Apple //e et Inside 
the Apple //c, par Gary Little, 
chez Brady Communications- 
Prentice Hall. 

Understanding the Apple //e, 
par im Sather, chez Quality 
Software. 

Assembly cookbook for the 
Apple J[ //e, par Don 
Lancaster, chez Howard Sams and 
Co. 

Enhancing your Apple j[ //e, 
Volumes L et 2, par Don 
Lancaster, chez Howard Sams and 
Co. 

AII about Applesoft, par Call 
Apple. 

Al about Pascal, par Call Apple. 

AIT about DOS, par Call Apple. 

Disassembly lines, Volumes 1 à 
4, par Sandy Mossberg, chez 
Microsparc, 








Un bon livre en français sur le GS et 
le ProDOS 16 : Système 
ProDOS de l'Apple II GS, de 
Marcel Cottini, chez PSI. Il est 
absolument sans concurrent pour le 
moment. 


Pour piloter un hélicoptère, Michel 
nous a dit qu'il fallait s'entraîner au 
bureau. Mais même pour un petit 
avion, un instructeur nous serait bien 
utile. Pour ceux qui n'ont pas 
d'Apple //au bureau, pensez à mettre 
dans votre serviette Flight 
Simulator Copilot, de Charles 
Gulick, en français chez PSI, 
Entièrement dédié à l'apprentissage de 
situations de vol sur Flight 
Simulator II de Sublogic, ce 
livre vous économisera pas mal 
d'heures de vol réel pour avoir votre 
brevet. 


Si vous écrivez des jeux pour 
ordinateur, ou envisagez de le faire, 
ou simplement aimeriez savoir qui 
les fait et comment, abonnez-vous à 
la nouvelle et intéressante 
publication écrite par ceux qui vous 
font passer tant d'heures 
passionnantes sur votre Apple // : 
The Journal of Computer 
Game Design. Il faut beaucoup 
travailler et beaucoup penser pour 
amuser les gens. 





Activision 
2350 Bayshore Parkway, Mountain 
View, CA 94043, USA. 


Apple Fest 88 Boston 
Cambridge Marketing Inc, One 
Forbes Road, Lexington, MA 02173, 
USA. 

Applied Engineering 

P.O. Box 798, Carrollton, TX 
75006, USA. 

Applied Ingenuity 

14992 Ramona Boulevard, Unit M, 
Baldwin Park, CA 91706, USA. 
Association Valentin Haüy 

5 Rue Duroc, 75007 Paris. © (1) 47 
34 07 90. 

Ast Research 

2121 Alton Avenue, Irvine, CA 
92714, USA. 

Baudville 

1001 Medical Park Drive S.E., 


Grands Rapids, MI 49506, USA. 
Beagle Bros/Software Touch 
6215 Ferris Square, Suite 100, San 
Diego, CA 92121, USA. 

Berkeley SoftWorks 

2150 Shattuck Avenue, Berkeley, 
CA 94704, USA, 

Big Red Computer Club 
(BRAC) 

423 Norfolk Avenue, Norfolk, NE 
68701, USA. 

Brady Communications, Inc. 
Prentice-Hall Publishing, Bowie, 
MA 20715, USA. 

Bréjoux 

29 rue Montribloud, 69009 LYON. 
® 78 36 52 69 

Broderbund Software, Inc. 

17 Paul Drive, San Rafael, CA 
94903, USA. 


Call Apple 
290 S.W. 43rd Street, Renton, WA 
98055, USA. 


Central Point Software 
9700 S.W. Capitol Highway, £100, 
Portland, OR 97219, USA. 


Checkmate Technology 

509 South Rockford Drive, Tempe, 
AZ 35281, USA. 

Claris Corporation 

440 Clyde Avenue, Mountain View, 
CA 94043. 

Club micro son 

3 Rue Berthe, 92370 Chaville. © 
(1) 47 50 16 49. 

Computist 

P.0. Box 110846-T, Tacoma, WA 
98411, USA. 

Data Pak Software 

14011 Ventura Boulevard, Suite 507, 
Shertnan Oaks, CA 91432, USA. 
Datasoft 

19808 Nordhoff Place, Chatsworth, 
CA 91311, USA. 

Demco Electronics 

10516 Grevillea Avenue, Inglewood, 
CA 90304, USA. 

Electronic Arts 

Electronic Arts Direct Sales, P.O. 
Box 7530, San Mateo, CA 94403, 
USA. 

Epyx, Inc. 

608 Galveston Drive, Redwood City, 
CA 94063, USA. 

FWB, Inc. 

2040 Polk Street, Suite 215, San 
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Francisco, CA 94109, USA. 

Garde Inc. 

& Bishop Lane, Madison, CT 06443, 
USA. 

Howard Sams and Co, Inc. 
4300 West 62nd Street, Indianapolis, 
IA 46268, USA. 

Infocom 

125 Cambridge Park Drive, 
Cambridge, MA 02140, USA. 


Living Legend Software 
1915 Froude Street, San Diego, CA 
92107, USA. 


MDideas 
1163 Triton Drive, Foster City, CA 
94404, USA. 


Micol Systems 
9 Lynch Road, Toronto, Ontario, 
CANADA. 


MicroProse 
180 Lakefront Drive, Hunt Valley, 
MD 21030, USA. 


Microsparc, Inc. 

52 Domino Drive, Concord, MA 
01742, USA. 

On Three 

4478 Market Street, Suites 701-702, 
Ventura, CA 93003, USA. 

Orange Micro, Ine. 

1400 N. Lakeview Avenue, 
Anaheim, CA 92807, USA. 

P. Ingénierie/Claris France 

10 Rue Mercoeur, 70011 Paris. Tel 
(1) 43 70 71 72 





Sur Calvacom 


Def Fn modifiable 


1) Problème en Basic 


Parallax, Inc. 

5249 Locust Avenue, Carmichael, 
CA 95608, USA. 

PBI Software, Inc. 

1163 Triton Drive, Foster City, CA 
94404, USA. 

Pinpoint Publishing 

5901 Christie Avenue, Emeryville, 
CA 94608, USA. 

Prim'vert/DDA 

36 Rue des États Généraux, 78000 
Versailles. 

PSI 

BP 86, 77402 Lagny sur Marne 
Cedex. 

Quality Software 

21601 Marilla Street, Chatsworth, 
CA 91311, USA. 

RDC, Inc. 

408 South Baldwin Street, Madison, 
WI 53703, USA. 

Roger Wagner Publishing 
1050 Pioneer Way, Suite P, El 
Cajon, CA 92020, USA. 

Scarlett 

voir Big Red Computer Club 

Sierra on Line 

5750 France Avenue South, Suite 
123, Ed'wa, MN 55435, USA. 
Sit-Tech Software, Inc. 

P.O. Box 245, Ogdensburg, NY 
13669, USA. 

Spectrum Holebyte 

Sphere Inc, 2061 Challenger Drive, 





Alameda, CA 94501, USA. 
Strategic Simulations Inc. 
(SSI) 

1046 N. Rengstorff Avenue, 
Mountain View, CA 94043, USA. 


StyleWare 

5250 Guilfton, Suite 2E, Houston, 
TX 77081, USA. 

Sublogic 

713 Edgebrook Drive, Champaign, 
IL 61820, USA. 

Support System International 
150 South Second Street, Richmond, 
CA 94804, USA. 

Tab Books, Inc. 

Blue Ridge Summit, PA 17214, 
USA. 

The Journal of Computer 
Game Design 

5251 Sierra Road, San Jose, CA 
95132, USA. 

Third Wave Technology 

11934 Lorain Avenue, Cteveland, 
OH 44111, USA. 

TimeWorks 

444 Lake Cook Road, Deerfield, IL 
60015, USA. 

Word Perfect Corporation 

288 West Center Street, Orem, UT 
84057, USA. 

Zedcor 

4500 E.Speedway, Suite 22, Tucson, 
AZ 85712, USA 


pas de solution simple ; sur l'Apple |, la méthode 
consiste à créer une ligne REM de 250 caractères 


quelconques puis de la modifier par programme par des 
POKESs pour créer le DEF FN de son choix. 
Sur le Mac, c'est impossible car les blocs deménoire se 
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De: David BENSIMON (DB25) - 16 fev88 09h17 


Je viens d'acheter un Mac SE et commence à écrire un 
programme en MSBasic 3.0 interprété, qui permet de 
tracer des fonctions mathématiques. J'ai un problème : je 
voudrais que la fonction soit saisie dans le programme et 
nesait comment faire. J'ai essayé de faire INPUT A$ (où 
AS est la fonction) puis DEF FNFOO=AS mais Basic 
interprète cela comme si ma fonction était une constante 
chaîne. Pouvez-vous m'aider ? 


Vous soulevez là un problème clasique en Basic. I n'y a 


déplacent allègrement. 
I convient donc. de se pencher sur la question ! 


Longueur de page sur ImageWriter II 


2) Impression sur une page 21/29,7 
De: Pascal CARRENO (PC94) - 16 fév 88 21h15 


Existe-t-il une commande (code ASCIT) pour définir la 
longueur d'une page sur ImageWriter Il. La 
documentation que je possède ne précise rien à ce sujet. 
Ceci permettrait d'éviter une série de PRINTSs pour 
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tenniner unepage.Par la même occasion, pouvez-vous 
m'indiquer lescommandes pour 11 et 12 pouces ? 


Sur l'ImageWriter Il,pas de problème, il ya une 
commande simple : 

ESC H nnnn 

où nnn est lalongueurde la page exprimée en 144ème de 
pouce. Depuis le Basic, voiciles instructions : 


PRINT CHR$(27)"H1584" pour 11 pouces et 
PRINT CHR$(27)"H1728" pour 12 pouces. 


Sur le Macintosh, vous rwttriez LPRINT à la place de 
PRINT. 


En ce qui concœrre l'ImageWriter 1, plutôt qu'un long 

discours, voici un programme qui indique à l'imprimante 

que son papier comporte NL lignes par page : 

10 PRINT DS"PR£I 

20 NL = 66 : REM 66 = 11 pouces, 72 = 12 pouces 

30 PRINT CHRS(29) CHRS(65) CHRS(64); 

40 FOR I = 1 TO NL: PRINT CHRS(64) CHR$S(64);: 
NEXT 

50 PRINT CHRS(67) CHRS(64) CHRS(65) CHRS(64) 
CHRS(30) 

60 PRINT D$"PR£O 

NB: n'oubliez pas les ‘* des lignes 30 et 40. Une page 

comporte au maximum 96 lignes. 

Après l'envoi de ces codes, l'imprimante saute le nombre 


de lignes qui convient pour rejoindre le haut de page 
suivant dès réception d'un CHR$(12). 


Certains codes de contrôle del'ImageWriter nécessitent 8 
bits significatifs, autrement dit O n'est pas toujours 
équivalent à 128 ; or le Basic envoie toujours le bit de 
poids fort à 1 (toujours 128 à la place de 0). 

Dans Pom's 34, article Initiation, une routine résoud cette 
difficulté. 








Du type BAS au type TXT 


6) question à domicile... *AR* 
De: Eric VANTROEYEN (EV17) - 21 fev 88 10h16 


J'aimerais savoir comment faire pour récupérer avec un 
traitement de textes un programme Basic (mise en format 
TXT). 
Comment peut-on simuler la touche FNCT du Minitel 
(code ASCIN) pour le faire passer à 4800 bauds ? Ceci 
permettrait de définir ‘Mon Imprimante’ pour 
qu'AppleWorks imprime sur le Minitel... 
I suffit d'a jouter à votre programme : 

60000 D$= CHR$(4) 

60010 PRINT D$"OPENFICHIER. TEXT 

60020 PRINT D$S"WRITEFICHIER. TEXT 

60030 LIST, 59999 

60040 PRINT DS"CLOSE 
puis de faire : RUN 60000. 


Pour faire passer le Minitel à 4800 bauds au niveau de la 
prise, il f aut envoyer lescodes suivants : 

$1B, $3A, $6B et un octet de vitesse constitué ainsi : 

bit 6 = 1 

bit 3 à 5 = vitesse d'émission 

bit 0 à 2 = vitesse de réception 


001 = 75 bauds 

010 = 300 bauds 
100 = 1200 bauds 
110 = 4800 bauds 


Donc pour 4800 bauds, l'octet de vitesse veut : 
1110110 soit $76, soit encore 118. 


Il convient de préciser que ceci ne modifie en rien la 


vitesse de transmission sur le réssau téléphonique. 





Répom'deur et Hgr.Mntl 


11) Repomdeur 
De: Philippe CUVELETTIE - 21 fev 88 23h48 


Je me suis inspiré de ENVOIIM et j'ai créé une première 
page à mon serveur. I] s'agit d'un fichier TXT créé avec 
HGR.MNTL (Pom's 3). La ligne permettant de l'envoyer 
à mon correspondant éventuel est : GET R$: & 
AFFICHE,RS; 

Cela envoi une image brouillée. 

Si la même ligne est GET R$: PRINT R$; tout devient 
normal. Pourquoi ? 


Recodoge, recodage. La routine AFFICHE effectue 
toujours un recodage pour éviter les problèmes dus aux 
couples £k, 8], T, à@, etc. Bien sûr cela pose un problème 
pour le graphisme. Dans Pom_Link 3.0, une routine envoi 
brutalement, sans aucun recodage et le problème est 
résolu. Ceci est aussi valable pour la version Macintosh 
de Pom_Link. 


Pom's 27 & système Mac 


1) CABLE COM MAC+ 
De: Arian ZELWER (AZ10) -06 jan 88 09h41 


Votre câble de liaison semble poser des problèmes avec 
mon MacPlus et ‘Minitell’ (Pom's 27). Le clavier est 
décalé :W=<,X=W,C= X etc. Je n'ai plus de Return! 


Non, n'accusez pas le câble : le problème vient de la 
disquette 27 de Pom's qui contient un ancien système, ceci 
pour permettre le fonct'onnement avec les Macintosh 
128Ko, encore nombreux à cette époque. Le remède est 
simple : copiez les programmes Minitel1 et Minitel2 sur 
l'une de vos disquettes dotées de votre système habituel 

ou bien copiez votre système sur la disquette 27. 


Schémateur (Pom's 31) & souris 


20) SCHEMATEUR ET SOURIS 
De: Pierre DIEUMEGARD (PD11) - 29 dec 87 15h38 


Enlever la souris du //c pour y installer une manetbe de jeu 
n'est pas pratique et est moins précis. SCHEMATEUR 
peut fonctionner avec la souris moyennant la modification 
suivante : 


25 PRINT CHR$(4)"PR£4#: PRINT CARS (1) 

26 PRINT CHR$(4)"PR£O 

100 REM SOURIS 

101 IiF TQ THEN GOSUB 295 

102 PRINT CHRS$S(4)"“IN£4":INPUT "",X8%,Y%,SB 

103 IF X$% > 279 THEN X6 = 279 

104 IF Y$ > 191 THEN Y$ = 191 

106 SB = ABS(SB): IF SB = 1 OR SB = 2 THEN 
XDRAN CU AT X$,Y% 

290 POP:TQ=1: RETURN 

295 PRINT CHR$(4}"PR£4":PRINT CHRS(1) 

296 PRINT CHR$({4}"PR£O": TO=0 

297 RETURN 


De plus, il faut commencer la ligne 250 par : 


250 FOR I = 1 TO ZC: IF R=R(I) THEN PRINT 
CHR$(4)*IN£O": ON I GOSUB 290, 310... 


Un seul mot: merci 


Text aléatoire/Text séquentiel 


23) FICHIER TEXT 
De: Philippe CUVELETTE (PC121) - 29 dec 87 18h56 
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Comment transformer l'accès d'un fichier T direct pour 
pouvoir l'utiliser avec un traitement de textes ? 


Si les codes 0 qui complètent les zones d'un fichier 
aléatoire gênent votre traitement de textes, f s'agit 
peut.être d'AppleWriter ? 
1 suffit de lire le fichier direct et de l'écrire dans un 
fichier séquentiel avec un programme du type : 
OPEN fichier direct, Lxxx 
OPEN fichier séquentiel 
FOR I = 0 TO nombre d'enregistrement 
READ fichier direct, enregistrement 1 
INPUT chacun des champs 
WRITE fichier séqguentiel chacun des champs 
NEXT 





Sur le serveur Pom's 
(1) 39 53 04 40 


Des fleurs 

Merci pour vos très nombreux messages sur notre serveur. 
Dans le premier mois de connexion, la grande majorité a 
été constituée de félicitations et encouragements, 
Pom_Link répond effectivement à un besoin d'ouverture 
de nos machines : un vrai Basic télématique qui nous 
semble bien sans bug. 


Pardonnez-nous de ne pas avoir toujours accusé réception 
personnellement mais soyez remerciés ici par la 
rédaction. 

Le serveur est à votre disposition 24 heures sur 24 mais le 
numéro de téléphone que vous nous indiquez doit, si 
possible, être accessible aux heures de bureau. 


Quelques messages juste pour notre plaisir : 


28/02/88 * 16h18 

Jean Claude Hazera 

Bravo pour tous les programmes de communication et en 
particulier pour Répomdeur. Bravo et merci. 

26/02/88 * 11h05 

Patrick Forien 

Très bien votre répondeur. Quelle surprise nous 
réservez-vous dans le numéro de mars . Amitiés. 
25/02/88* 00h07 

Hacker Prime 

Enfin un vrai Basic télématique pour Apple. Cela ouvre 
d'étonnantes possibilités pour de futurs serveurs 
télématiques. 


24/02/88 * 00h04 

Un Somranbule 

Un grand bravo pour ce superbe soft et encore une ovation 
pour toute l'équipe de Pom's. Continuez sur cette voie. 
22/02/88 * 23h58 

François Muller 

Bravo pour ce programme, vous souhaïte une bonne 
continuation. 

20/02/88 * 14h23 

Patrice Triquet 

Encore bravo pour votre revue qui reste la seule qui traite 
de l'Apple // clairement et avec convivialité ! 














ProDOS & Integer Basic 
03/03/88 * 14h52 
Roger Riéra 


Est-il possible de charger des programmes en Basic Entier 
avec ProDOS ? 

Hélas non, il vous faut choisir ProDOS ou Integer Basic : 

il n'y a pas la place pour tout le monde dans la carte 

langage ! 








Carte Transporter 

20/02/88 * 23h45 

Jean-Louis Aspirot 

Pouvez-vous aider un de vos abonnés à se procurer la carte 
Transporter de chez Applied Engineering, le kit, le duo 
disk. Faut-il passer une commande aux USA ? 

Une seule adresse : Bréjoux (coordonnées à la fin de la 

rubrique Apple /{ for ever). 


SuperMacroWorks & AppleWorks 1.2 


20/02/88 * 11h47 

Georges Cans 

Avec AppleWorks 12, peut-on se servir de 
SuperMacroWorks ? Sinon, que faire ? 

Super MacroWorks nécessite la version française 1.4 ou la 
version américaine 2.0. MacroWorks nécessitait déjà la 
version US 13, 

Seul remède donc, consulter votre revendeur ou 
P-Ingénierie (coordonnées à lafin dela rubrique Apple || 
forever). 


Banques de données UsS. 
18/02/88 * 21h% 
Jean-Pierre Fournier 


Nouvelle orientation télématique super. Lequel parmi les 
logiciels Pom's perinet de se connecter aux banques de 
données US. ? 


CLV_Pomm's étant conçu pour enregistrer tout Serveur 
ASCII, devrait vous rendre service. La version Apple 
fonctionne uniquement avec un Minitel. 


SuperMacroWorks et AppleWorks 2.0 US 
01/03/88* 00h00 

Philippe Ayral 

SuperMacroWorks fonctionne-t-il avec AppleWorks 2.0 
US? 

Nous serons brefs : oui 


T_Pom's : adresses à l'éeran 


28/02/88 * 16h43 

Philippe Kachaner 

Au sujet de T_Pom's (n° 30), quel programme en langage 
machine dois-je ajouter pour pouvoir afficher le contenu 
des fichiers téléphone à l'écran. 

T_Pom's crée des fichiers de type TXT (TEXT/MACA sur 

le Macintosh) qu'il est simple d'ouvrir depuis tout 
traitement de textes. Depuis le Basic, on peut simplement 
réaliser un programme de lecture (OPEN fichier, READ 
fichier, GET r$, PRINT ...). 

Pourune question d'occupation mémoire, vous ne pourrez 
pas simplement ajouter une fonction d'affichage à l'écran 


Pom's n° 35 














maïs vous pouvez transformer l'option impression : dans 
le source page 59, remplacez les deux JSR $C100 par des 
JSR $FDED. Les caractères qui étaient diri gés vers 
l'interface le seront vers l'écran. 


Répom'deur : un petit bug 


06/03/88 * 13h54 
Claude Alison 


Merci pour Répomdeur Pom's 34. Une remarque : les 
coordonnées du dernier correspondant restent en mémoire ; 
cebusg sera éliminé par : 

A1 N$="":PR$="":TL$=""; PO=0 

Effectivement, sur la version Apple {} la remise à 0 des 

variables avait été ajoutée par erreur à laligne 11 au lieu 

dela ligne 40. 


SuperMacroWorks : documentation 


27/02/88 * 16h55 

Alain Desnoes 

Comment puis-je avoir la documentation française de 
SuperMacroWorks ? 


Si Super Macro Worke vous a été livrépar nos soins, il 
était accompagné de la documentation française, de la 
version entièrement francisée du logiciel, et de la 
disquette Bonus. 

Si sous l'avez obtenu chez un revendeur, Dimitri Geystor 
— Lachenez - 74350 Cruseilles vous l'adressera contre 
65,00 F et votre ‘Proof of purchase’. Notons au passage 
que si vous avez acheté ce logiciel en France, le 
distributeur est légalement tenu de fournir le mode 
d'emploi en français. 

Et si vous n'avez pas cette preuve d'achat, il n'y a pas de 
solution. 


Minitel, Pom’s 27 


26/02/88* 17h08 
Jean-François Lebourg 


Je vais vous acheter MinBas (disquette Pom's 27) mais je 

dois poser deux questions : 

1- Que signifie ’Restitution hors réseau’ ? 

2- Est-ce que l'enregistrement s'effectue 
instantanément ou est-ce qu'il se fait au rythme 
(lent) de l'affichage du programme Minitel ? 


MinBas, programme publié dans Pom's 27 ,enregistre en 
mémoire puis sur disquette vos séquences de consultation 
Miritel. Ne perdez pas de temps (coûteux en 3615) à lire 
les écrans à œ moment. Après avoir déconnecté votre 
Minitel (donc après votre communication téléphonique), 
demande à votre ordinateur de vous ‘rediffuser’ la 
séquence et là, prenez votre temps, c'est gratuit. 


L'enregistrement ne se fait pas instantanément mais au 
rythme de 1200 bauds (150 caractères/seconde). Il n'y a 
aucun mo yen d'accélérer le débit du serveur car i yaune 
contrainte technique au niveau des liaisons 
téléphoniques. 


Temps d'accès sur Speedisk 
ClaudeRozé 


Est-il possible d'accélérer le chargement de fichiers de 
type text. Sur Unidisk 35, le programme ci-joint charge 
les deux fichiers en 34 secondes et sur Speedisk en 27 
secondes. Est-ce que le Basic limite définitivement la 
vitesse ? 


Vous vous heurtez au problème du traitement des chaînes 
en Basic ; la carte Speedisk ne peut rien contre cela. Votre 
programme charge en effet dans le premier fichier 250 x 2 
variables et 146 x 8 dans le second. Au total 1668 
variables alphanumériques. 

Seule solution pour votre programme PreDOS, le 
compilateur Beagle avec lequel les temps relevés sont les 
suivants : 

Unidisk 3°5 : 22 secondes 

Spædis k: 15 secondes 

1 semble difficile de passer au-dessous de ces chiffres 

sans refondre entièrement le programme Basic. 


Répom'deur, Vs.Tel & Sectrad 


28/02/88“ 12h19 
Marc Tixière 


Votre répondeur est très beau mais il ne marche pas avec 
VS.TEL et un SECTRAD... Dommage. 


Effectivement, d'ailleurs 1 ne fonctionne pas non plus 
avec MacWrite et un fer à repasser. Plus sérieusement, on 
pourra toujours trouver tel ou tel matériel incompatible 
avec tel ou tel programme ; reconnaissons que le Minitel 
étant très largement répandu (3 500 000 unités en 
circulation aujourd'hui), étant particulièrement fiable et 
efficace, et — dernier détail — gratuit, notre serveur a un 
bel avenir … 

Quant à la compatibilité avec VS.TEL, nous ne voyons 
pas d'intérêt. 





Répondeur enregistreur ou détecteur ? 


06/03/88 * 12h43 
M. Doret 


Un répondeur enregistreur peut-il remplacer un détecteur 
d'appel ? 

Oui, mais... Les répondeurs sont évidemment équipés de 
détecteurs d'appels ; on peut tou jours ouvrir et faire 

intervenir le fer à souder, mais peut-être est-il préférable 

de garder sa garantie et de faire un détecteur autonome. 


Programmes à deux vitesses 


02/03/88 * 19h16 
Pierre-Alein Buino 


Bravo pour votre revue (me suis abonné pdt AppleExpo). 
Une remarque cependant : il ne faudrait pas que se 
généralise le programme dans la revue et le super 
programme à part et payant !!!! 

Cela fait en effet 3 fois je crois, où les évolutions de 
programmes de la revue sont payants. Attention ! la 
revue risque de baisser en qualité... 


Quelle est la revue qui à proposé à 45 F un véritable Basic 
télématiqueavec INPUT contrôlé et autant de 
fonctions ? 

Quelle est la revue qui a proposé à 40 F un programme de 
transfert de fichiers ia Minitel au protocole 100 % 
fiable et qui recrée les fichiers à l'arrivée ave TOUS 
leurs attributs ? 

Pom_Linkversion 3.1 incluant le mode téléinformatique 
présentant des instructions plus professionnelles’ ne 
ferait certainement qu'encombrer la revue. Même 
remarque pour Inter Pom's V2.0 qui, concernant les 
transferts avec IBM PC et transferts locaux rapides. 

Pour reprendre votre formule nous dirons : le super- 
programme dans la revue et le programme spécialisé 


part ! 





Pom's n° 35 


69 


























70 


+ Suite de la page 45 


Adresses 


Apple Computer France 
Avenue de l'Océanie 

Z.A, de Courtabœuf — B.P. 131 
91944 Les Ulis Cedex 

æ (1) 69.28.01.39 

Alpha Systèmes 

18, avenue Alsace-Lorraine 
38000 Grenoble 

2 76.43.1997 

Belden Electronics S.A.R.L. 
69, rue de la belle Étoile 
B.P. 50026 — Paris Nord 2 
95946 Roissy — Charles de Gaulle 
æ (1) 48.63.25.80 
Claris/P-Ingénierie 

10, rue Mercœur 

75011 Paris 

&æ (1) 43.70.71.72 
Computer Unlimited 

2 Tbe Business Centre 
Colindeep Lane — Colindale 
London NW9 6DU 

æ 01-200 8282 

Crex technology 

34, rue Poncelet 

75017 Paris 

æ (1) 42.67.80.46 
Honeywell S.A. 

4, avenue Ampère — B.P. 37 
78391 Bois d'Arcy Cedex 

æ (1) 30.58.81.12 

Intellia 

10, rue Mercœur 

75011 Paris 

æ (1) 43.70.89.40 

Irwin Magnetics 
Regensbergstrasse 89 
CH-8050 Zurich 

æ 01/312 70 30 
Kangourou services 
Rue des Sables 

ZAC de Pulnoy-Essey 
54420 Pulnoy 

æ 83.21.25.33 

MCI 

8, rue de l'Isly 

75008 Paris 

æ (1) 42.94.27.67 
Sensible software, Inc. 
335 E. Big Beaver, suite 207, Troy 
MI 48083, (313) 528 

æ (313) 528-1950 


G 





Ces disquettes contiennent des programmes ou documents ‘domaine 
public’ ou ‘Freeware’ : elles sont le résultat d'une sélection conjointe 
de Pom’s et du Club Apple parmi les 25 disquettes initialement 
proposées par le Club Apple. Cette réduction de plus de 25 disquettes 
en 9 correspond à une élimination de nombreux programmes qui 
soit ne fonctionnaient pas sur Macintosh Plus, soit présentaient un 
intérêt pratique réduit. Vous trouverez ci-dessous un ‘catalogue’ des 
disquettes. 


æ Disquette Mac À - Divers 


Sort Menu, Paint Mover, Mock, Convert DAM, FEdit, Cube, Idle, MultiScrap, C 
Check, Hex Calc, Megaroïd, Mem Window 


ww Disquette Mac B - Polices de caractères 

Andover 12 —- APL 12 — ASCII 12 — Bookman* 14/24 — Boxes 9/10/12 — 
Broadway 24 — Century 18/24 Chancery 24 - Chicago by night 12 — Circus 
12/18/24/36 — Cirth 48 — Cursive 12 — Cyril 12 East Orange 12 -— Elite 12 - 
Elvish 12 — Eon 12 — Exeter 13 — Greek 9/10/12/14/18/24 Hollywood 12/24 — 
Hood River 12 — Lineal 18 - Mars 18 — London 18/36 -- Long Island 12/18 








ww Disquette Mac C - Polices de caractères 

N Helvetica Narrow* 14 — Ophir 12/24 — Palo Alto 9/12/18/24/36 — Park 
Avenue 18 Philly 9/10/12/18/20/24 — Pica 12 — Princeton 12/24 — Ravenna 
12/24 — Runes 12/24 - Santiago 12 Silicon Valley 12 — Stencil 12/24 — Symbol* 
12/18/24 — Tiny 12 — Toronto fixe 9 — Vectors 9/12 Zapf Dingbats* 18 

* les polices marquées d'une étoile ne sont pas celles de la ‘Laser Writer’ portant 
les mêmes noms. 


æ Disquette Mac D - Acressoires de bureau 

ArtThief, Ascii.DA, FKEY (ASCins, ASClip, BigCursor, Clippy, ComKey, DA 
Key, FadeKey, PanicKey, Screen ToClip, SetSound, ShowKey, Sleep), Poor 
Boy's, Dec Maker, file Tools, Maxwell, TheBox 


«æ Disquette Mac E - Applications 
Amazing, Analog Clock, Backgammon, Banner, Bricks, Canfiels, DiskUtil, Fast 
Formatter, MouliMac 


æ Disquette Mac F - Applications 
DataFlow, Reversi, yapu, Enigma, F/DA Sorter, File Diddler, HexPuzzle, Iago 





ww Disquette Mac G - Applications 
ResEdit, Icon Editor, JClock, Life, Missile Command 





«æ Disquette Mac H - Applications 
MacBILLBOARD, MacWaïit, MenuEdit, Packlt, Social Climber, Solitaire, 
WaveMaker 


«æ Disquette Mac I - Applications 
Snooker, System Version, Adventure of Snake, ThinkTank to WP 


Chaque disquette : 80,00 F TTC franco, bon de commande page 71. 
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Bon de commande 


Gagnez du temps ! Avec votre Minitel et de votre carte de crédit, appelez notre serveur 
gratuit 24 heures sur 24 au (1) 39 53 04 40. 





% Logiciels pour Apple II 


BananaSoft 140Ko 200,00 F0] 


Ordico 140Ko 200,00 FO] 
E.P.E 5.1 140Ko 200,00 F OI 
Civ_Pom's 140Ko 200,00 FL] 





InterPom's 2.0 140Ko450,00 F C1 
Pom_Link 3.1 140Ko 450,00 F CY 


SuperMacroWorks 


Édit. Vidéotex 140Ko 200,00 F C] 


Dominos 140Ko 80,00 F CJ 
E.P.E5.1 800Ko 200,00 FO 
Civ_Pom's 800Ko 20000F0 


InterPom's 2.0 800K0 450,00 F [] 


Ludologic 140Ko 80,00 FO] 
COGO {src) 140Ko 200,00 FC] 
MaxMoniteur 140 Ko 150,00 F0 


Pom_Link 3.1 800Ko 450,00 F CT favec carte Joker : 400,00 F) 


500,00 F C1 (avec carte Joker : 450,00 F) 


Compilateur Beagle 750,00 F CJ° (avec carte Joker : 675,00 F) 


BigU 


450,00 F CL? favec carte Joker : 400,00 F) 


% Logiciels pour Macintosh 


Excel efficace 400Ko 190,00F [1 Excel efficace 800Ko 175,00 F[1  MacAstuces 200,00F 0] 
Civ_Pom's 200,00 F1  InterPom's2.0 450,00 FC) Raccourci 200,00 FO 
Pom_Link 3.1 450,00 F CL (avec carte Joker : 400,00 F) 

% Logiciels pour IBM PC 

Secrets de Multiplan 175,00 FC]  InterPom's 2.0 450,00 FO 

% Disquettes ‘domaine public’ pour Macintosh 

Mac'A'C) ‘B'O] ‘C'O ‘D'O ‘E'O FO ‘GO ‘HO l'O 80,00F par disquette 
 Reliures 

Reliures toilées pour 6 numéros de Pom's (un an) : _______ exemplaire(s) à 60,00 F, soit F 


= Abonnements 


L'abonnement comprend l'attribution de la carte Joker qui offre un accès privilégié à 
notre Hotline (assistance dans la mise en œuvre des programmes diffusés par Pom's) et 
qui donne droit à des remises sur les produits Pom's. 


Abonnements pour six numéros à partir du à: 


la revue Pom's seule 


la revue et les disquettes Apple ][ 140K 
la revue eties disquettes Apple ][ 800K 
la revue et les disquettes Macintosh 


la revue Pom's, les disquettes Apple ][ 140Ko — 5 1/4 ei les disquettes Macintosh 
la revue Pomr's, les disquettes Apple ][ 800Ko — 3" 1/2 et les disquettes Macintosh 


225,00 FOI 
525,00 F0 
625,00 FOI 
625,00 FD 
925,00 F0] 
1025,00F 2] 


Envoyez ce bon et votre règlement à : Éditions MEV -12, rue d'Anjou — 78000 Versailles 


Nom : 
Adresse : 


Règlement par : CB/Visa/Euro/MasterCard 


numéro de la carte 


Montant... F 





CI Chèque bancaire [] Chèque postat C1 Mandat [1 
date d'expiration __ _ 
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Pour les envois par avion, ajoutez 15 F par numéro aVou par disquette 


Bon de commande 





Gagnez du temps ! Avec votre Minitel et de votre carte de crédit, appelez notre serveur 
gratuit 24 heures sur 24 au (1) 39 53 04 40. 





= Revues Pom's 








































































































n°8 3500F0 n°10 4000F[] n°11 4000F[0] n°12 40,00F 0] n° 13 4000F0 
n° 14 40,00 F n°15 4000F 0] n°16 40,00F 0 n°17 4000FC n°18 4000F[] 
n°19 40,00 FE] n°20 40,00 F0] n°21 40,00F 0 n°22 4000F[] n° 23 4000 F0] 
n°24 4000 F0] n°25 4000F[1 n°26 40,00F 0] n°27 4500FC n°28 4500F [0] 
n°29 45,00 FC n° 30 45,00 F0] n°31 45,00 F0] n°32 4500F [0] n°33 45,00F 0] 
n° 34 4500 F[] n°35 45,00 FC] 
Disquettes Pom's Apple ][, 140Ko - 5,25 pouces 
Ces disquettes regroupent l'ensemble des programmes pour Apple // d'une revue. 
Jusqu'au numéro 28, elles sont au format DOS 3.3. 
Depuis le n° 29, le recto est en DOS 3,3, le verso en ProDOS. 
n° 42 60,00 FO n°3 6000F[] n°4 60,00F0] n°5 6000F0] n°6 60,00 F0 
n°7 60,00 F[] n°8 60,00F[] n°9 60,00 F0] n°10 6000F[] n°11 6000F0] 
n°12 6000F [0] n°13 6000F0 n° 14 6000F 0] n°15 6000F[01 n°16 6000F 0 
n°17 6000F0 n°18 60,00 F0] n°19 60,00F n°20 6000F[] n°21 6000F[01 
n°22 6000F[01 n°23 6000F0 n°24 60,00 FCO] n°25 60,00F[1 n°26 60,00 FC] 
n°27 60,00F[] n°28 6000F [1 n°29 6000F0] n°30 60,00F 0] n° 31 60,00F 0] 
n°32 60,00 F0 n°33 6000F [01 n°34 6000FE] n°35 6000F [0] 
Disquettes Pom'’s Apple I, 800Ko - 3,5 pouces 
Ces disquettes regroupent l'ensemble des programmes pour Apple // d'une revue. 
Elles sont au format ProDOS. 
n°29 80,00 F2 n°30 80,00F 0] n°31 80,00 FE] n°32 80,00F [0] n°33 80,00 F0] 
n°34 8000 F0] n°35 8000F 0] 
Disquettes Pom'’s pour Macintosh 
Ces disquettes regroupent l'ensemble des programmes pour Macintosh d'une revue. 

n° 14+15+16 150,00F 01 n 17 80,00 FC] n°18 80,00 FC] n° 19 8000F0 
n°20 80,00F [0] n°21 80,00F0] n22 8000F[0] n°23 80,00F0] n°24 80,00FC 
n°25 80,00F[] n°26 80,00F[] n°27 8000F0 n°28 80,00 F0 n°29 80,00F[C] 
n°30 80,00F0] n°31 8000F[] n°32 80,00 FC n°33 80,00 FO n°34 8000F[0] 
n°35 8000F0 
Recueils de la revue Pom's 
Ces recueils regroupent quatre numéros de Pom's. 





140,00 F0] 
200,00 FO] 


140,00F 0 
200,00 F0] 


n° 3 {revues 9 à 12) 140,00F [01 
Disquettes 9 à12  200,00F0] 


n° 2 (revues 5 à 8) 
Disquettes 5 à 8 


n° 1 (revues 1 à 4) 
Disquettes 1 à 4 





Envoyez ce bon et votre règlement à : Éditions MEV -12, rue d'Anjou 78000 Versailles 
Nom : 

Adresse : 

Règlement par: CB/Visa/Euro/MasterCard 


numéro de la Carte ____ ____ __ Re 
Signature : 


[I Chèque bancaire [] Chèque postat EL] Mandat [1 
date d'expiration __ 


Montant UF 
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Détecteur d'appels téléphoniques 


Cet apparell, pour Apple // ou Macintosh, autorise une 
surveillance de la ligne téléphonique pour l'utilisation de 
l'Apple comme serveur avec un logiciel tel, par exemple, 
. Répom'deur publié dans le numéro 34 de Pom's. 


Câble-interface Apple ‘— Minitel 


Pour faire fonctionner les programmes suivants : 


* Minitel/1 pour Macintosh, MinBas pour Apple I{+, 
//e, //e+, /Jc et IIGS : programme permettant 
l'enregistrement des écrans Minitel, la restitution à loisir 
hors réseau, le stockage et/ou l'impression de copies 
d'écran du Minitel, et aussi l'envoi de textes ou messages 
sur un Serveur. Programme du numéro 27 de Pom's. 


° InterPoms 1.0 (et plus) pour Apple JI+, //e, //e+, //c, 
IIGS et Macintosh : programme de téléchargement entre 
Apple ]JI et/ou Apple ]J[ et Macintosh. Transmission de 
n'importe quel type de fichier (système, texte, binaire, 
Basic...) en utilisant le Modem du Minitel, Version 1.0 
publiée dans le numéro 28 de Pom's. 

+ T_Pom's pour Apple Ji+, //e, //e+, //c, IIGS* et 
Macintosh: récupération de l'annuaire téléphonique sous 
la fonne de fichiers texte. Numéro 30 de Pom's. 


°_ Clv_Pom's pour Apple li+, //e, //e+, //c et HGS* et 
Macintosh : programmes de communication pour 
CalvaCom et serveurs ‘ASCII’. Numéro 31 dePomss. 


°< Paint — Minitel pour Mac et HGR — Minitel pour 
Apple Ïf+, //e, //e+, //c, IGS* : graphisme et Minitel, 
programmes proposés dans le numéro 33 de Pom's. 


+ Répom’deurpour Macintosh, Apple ]I+, //e, //e+, //€ 

et IIGS* : répondeur/enregistreur télématique 

interrogeable à distance publié dans le numéro 34. 

* sur un Apple IHGS, ce programme fonctionne 
indifféremment avec le port série intégré ou la carte Super 
Série Apple. Pour connecter le port intégré du HGS, utilisez 
un câble pour Macintosh Plus. 


8e 
Je désire recevoir : 





détecteur d'appels Apple // à 500,00 F ° 
détecteur d'appels Macintosh à 500,00 F " 
câble Minitel/Apple // & SSC à 225,00 F 
câble Minitel/Apple //c à 325,00 F 
câble Minitel/Mac 128, 512K à 225,00 F 
câble Minitel/Mac Plus, 1GS à 225,00 F 
câble Minitel/IBM PCT“ à 225,00 F 
câble de liaison locale** à 225,00 F 


* si vous êtes abonnés, vous béné ficiez d'une remise de 
10% sur le prix du détecteur, soit 450 F au lieu de 500 F. 
*#* préciser le type des deux machines à relier : 
Mac 512, Mac Plus, Apple //e, //c, HGS, IBM PC". 


Envois par avion : ajoutez 15 F par câble et/ou détecteur 





Éditions MEV - 12, rue d'Anjou - 78000 Versailles 
Nom : 
Adresse : #2 





En cas de règlement par CB/Visa/Eurocard/Mastercard : | 
nwnéro de la carte “ 
date d'expiration 
Montant 








Ces petites annonces sont gratuites 
et réservées aux abonnés (indiquer 
le numéro de carte Joker). Elles 
doivent bien entendu concerner 
l'informatique. Pour les ventes de 


parvenir une photocopie de la 
facture d'achat. 





Vends Modem Sectrad universel : 
1000 F + logiciel d'origine — Version 
Tel : 300 F — Sideways : 200 F — 
Unimate : 300 F — La gamme PFS : 
1000 F — Magicaic (compatible PFS 
et extension mémoire) : 500 F. 


Jean Ollion - Glénat - 15150 
Laroquebrou © 71 62 26 35 


Vends Epson MX/82FT + interface 
graphique 8133, compatible 
AppleWorks : 2400 F — Extension 
mémoire Apple IIGS 256Ko 
extensble à { méga : 900F. 


Pierre-Jean Texier © dom : 93 34 
91 50 & bx : 93 95 42 97 





Recherche, pour Apple //e, 
programme de calculs de résistance 
de matériaux pour structures 
métalliques — soft commercial ou 
développé par un applemaniaque 
concerné. Recherche également 
clavier détachable. 


Joël Piard : © 90 74 29 64 


Vends Autoworks pour AppleWorks 
sauf version française 1.4 : 150F. 
Gisèle Perrault @ dom : 42 06 55 01 
© bx : 42 60 38 64 poste 1149 


Vends Apple //e 65C02 128Ko, 
moniteur vert, 2 lecteurs 140Ko, 
ImageWriter | 132 colonnes, carte 
SuperSérie, Souris. 


Marc Goetz - 26 rue du Gal 
Rampont - 67170 Brumath © soir : 
88 53 44 44. 


Vends Imprimante Seïkosha GP 
550A + Cordon + interface parallèle 
Apple : 3000 F. 
Jean-François Dupont - 8, rue 
Madame de Sévigné - 53000 Laval 
© 43 69 05 77 
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logiciels, l'annonceur doit nous faire 


RE 















EPE v 5.1 


Appie ][+, //e, //c, IGS 







Le Pacha 





. Listez vos programmes Basic en avant et en arrière. 

* Modifiez, insérez, effacez des caractères en plein écran 
sans relire les lignes. 

* Recherchez toute chaîne de caractères. 

-« Choisissez vous-même les codes de contrôle d'EPE. 

+ Modifiez EPE : le fichier source est sur la disquette. 


200,00 F TTC franco 
(bon de commande page 71) 

















Horizontalement 


1 - Gendarme 

2 - Donc nées 

3 - Lézarderont 

4 - Dégommante, en quelque sorte 
S - Tutti - Arrivés de travers ! 
6 - lle - Sèchera 

7 - Mènent en bateau 

8 - Demi-suicide - Sarte l'associe au 9.2 horizontal 
S - Nom de séñorita - Vide 

10 - Morts - Bien trop petite jupe ! 


Solution du n° 34 


Verticalement 


1 - Ordre 

2 - Manque de compréhension 

3 - Prénom - Bordure 

4 - Sorte d'aéronef - Ville de Moldavie 

S - N'est pourtant pas sans signification 

6 - Préparaient 

7 - Bizarrerie 

8 - Il vaut mieux qu'il ne soit pas fils de Camé ! - Se promena 
9 - Un peu épais - Brament 

10 - Feras une action - Pronom 


Problème 35 
par 
Joëlle Piard 




















































AppleWorks!" décuplé 


AN APPLEWORKS ENHANCEMENT 


UNPROTECTED COMPATIBLE 


Backups may be made LUE Appie Ile, Ilc or GS 


Automatiser using standard copying 7 = À : Recuires AppleWorks 2.0 
procédures. . Ai à Or newer 


Apple WorksTM 
version française 1.4 ? 
Utiliser la souris ? SU 2.0 OR LATER 
s . . ; AppleWorks version 1.3 
erMacr oWork 
Sup de Randy Br andt 


S U P (3 R 
ne | * MACROWORKS : 
sur disquette 800Ko | 
nn ue mie ppleWorks» Macro Power! Turn 


Version francisée any series of keystrokes into a 
sur disquette 140Ko new one-keystroke command. 
Adds many new features to your Word 
Documentation Processor, Data Base and Spreadsheet. 
française 
Disquette Bonus 
de Dimitri Geystor 


Documentation 
américaine 


SLLLLA IE à 


abonnés à Pom’s : 
ERUIA LI 


Frais de port 20,00 F 
Banc d'essai : Pom’s 33 
Pumm's — 12, rue d’Anjou 
LIRE TES 
1) 39 51 24 43 





